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1.0 Research Objectives 

The objectives of this research includes supporting the 
Aerothermodynamics Branch's research by developing graphical 
visualization tools for both the branch's adaptive grid code and flow 
field ray tracing code. 

The completed research for the reporting period include 
development of a graphical user interface (GUI) and implementation 
into NAS’s Flowfield Analysis Software Tool kit (FAST) for both the 
adaptive grid code (SAGE) and the flow field ray tracing code 
(CISS). 

2.0 Research Progress 

The research progress is reported herein in terms of the 
following subjects: 

1) SAGE GUI 

2) CISS GUI 

2.1 SAGE GUI 

SAGE, Self Adapting Grid, by Carol Davies of the 
Aerothermodynamics Branch, is a grid editor that refines the grid, 
based on a set of criterias. NASA has several technical reports 
explaining the concepts and use of SAGE. 



2.1.1 SAGE Objective 

The objective for SAGE is to develop a graphical user interface 
that displays all the parameter settings along with a suite of 
visualization tools. The basic visualization tools are obtained by 
using NAS's FAST application with SAGE. 

2.1 SAGE Use 

The use of SAGE through FAST saves research time because 
changes to the SAGE parameters are displayed immediately on the 
screen. Otherwise, the changes are ran in a batch fashion and then 
displayed. 

2.1 SAGE GUI Documentation 

The SAGE GUI follows the same layout as the other NAS 
modules. To execute the SAGE module, the user must be familiar 
with using FAST. Documentation for FAST can be obtained from the 
NAS Applications Group. To use SAGE, select SAGE from the 
Modules menu. A window will appear with SAGE at the heading. 
In the right half of the window, are the SAGE parameters. In the left 
half of the window, the sliders are used for both the displayed grid 
and the adaption region. After setting the parameters, click adapt 
grid button and the result will be displayed. Click undo to return to 
the original grid. A picture of the GUI along with the code appears 
in the appendix. 


2.1 Results 



The implementation of SAGE into FAST was completed with 
ninety percent of the feature set available from the original SAGE 
code. The SAGE code itself was preserved in its Fortran state with 
minimal modifications. The SAGE code and GUI code has been 
turned over to the NAS Application's group for further development. 
A picture of the GUI and the source code appear in appendix A. 

2.2 CISS GUI 

CISS, Constructed Interferograms Schlieren and 
Shadowgraphs, by Dr. Leslie Yates of the Aero thermodynamics 
Branch, is a graphical tool that simulates experimental images 
through the use of psuedo ray tracing techniques. NASA has several 
technical reports explaining the physics of CISS. 

2.2.1 CISS Objective 

The objective for CISS is to develop a graphical user interface 
that displays all the parameter settings along with a suite of 
visualization tools. The basic visualization tools are obtained by 
using NAS's FAST application with CISS. 

2.2 CISS GUI Documentation 

The procedure for accessing CISS is the same as SAGE. Also, 
the parameter layout in the CISS window is similar to SAGE with 
the parameters of CISS appearing in the right half of the screen. 

To use CISS, first setup the surfaces if there are any. This is 
done by moving the sliders and selecting the appropriate i or j or k 



surface. Then depress the Surface button to record this entry. If 
there is multiple surfaces, repeat this procedure. Depressing Reset 
erases all recorded surfaces. 

Next, the integration parameter set must be set. These 
integration parameters are common to all the image options and 
must be computed separately since this is the time consuming part. 
The integration parameters are the computational density, the 
experimental density, the viewing angle psi, theta and phi, scaling, 
z-depth for 2-dimensions, the number of rays to use, the number of 
times these rays transverse the flow, and most importantly the 
exposure that determines the intensity. Depressing integrate button 
will now execute this. 

The interferogram supports finite vertical fringes and infinite 
vertical fringes. The interferogram parameters are the wavelength 
of light and the number of fringes. Depressing the interferogram 
button will display the image immediately. 

The shadowgraph has only one parameter, object distance, to 
compute its image. Depressing the shadowgraph button will display 
the image immediately. 

The schlieren supports both the horizontal and vertical knife 
edge. Depressing the the schlieren button will display the image 
immediately. 

In displaying any of the images, the integrate section need not 
be recomputed as long as the parameters in integrate are not 
changed except for the exposure parameter. The exposure is now 
separate from the integrate. 



2.3 CISS GUI Result 


The implementation of CISS into FAST was completed with 
ninety-five percent of the feature set available from the original 
CISS code. The CISS code itself was preserved in its Fortran state 
with minimal modifications. The CISS code within FAST is know as 
FISST, Flowfield Interferogram Schlieren Shadowgraph Tookit. 
The CISS or FISST has been turned over to the NAS Application’s 
group for further development. A picture of the GUI and the source 
code appear in Appendix B. 

3.0 Conclusions 

SAGE and CISS have been successfully implemented into the 
NAS's FAST graphics application. NAS application group will now 
support and release these two modules from within FAST. 



Appendix A: SAGE GUI with Source Code 
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REPEAT - YES |, 


( "TYPE*. 

< “RENDER- . 

{ “ATTRIBUTES*, 

( “ OPT I OKS " . 

I " DIRECT I0K* , 

I ’SLIDER*, 

I “SURE ACE*, 

I “BOUNDARY*. 

( “LOOP-, 

) “PLANE'. 

| -LOOP ZONE*, 

( -SLIDER ACTION”, 


•*t_typ*_fune, 

•*t_r*ndar_Cunc. 

a*t_attrlbutaa_func, 

■at - opt ions_f unc . 
a.t_di roct lon_func, 

•ot_i jk raag.*_f unc , 
•«t_aur?ac*_buttons_func, 
a.t _bo under y_sur f ae.a_f unc , 
a.t_loop_bott ona_f unc, 
a.t _1 o op_but t ona - f u no , 
a ot _ 1 oop_but t ona - f u no , 

•ot - a 1 ldo r _bo t t on a_f unc , 


REPEAT_YES I. 
REPEAT_YES J. 
REPEAT_YES ). 
REPEAI YB3 
REPCAT YES I. 
REPCATNO I, 
REPEAT YES ), 
REPEAT - BO I. 
REPEAT - YES ), 
REPEAT* YES I, 
REPEAT - YES !, 
REPEAT* YES |, 


* 

POBLIC 

* 


/*+♦ int got_looplng( void ) 

• PURPOSE: 

• Return the looping .tatl 

• AUTHORS: 


* Todd Pleaa.l 

* NASA Amaa Research Canter 

* starling Software 

* REVISION HISTORY ; 


* 12/19 

* INPUT PARAMETERS: 


* Bon* 

« OUTPUT PARAMETERS: 


« rUBCTIOB RETURN: 



*••***/ 

...../ 

" * •••../ 
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* AUTHORS: 


Cental tho ponolt . 


Todd Plaaial 

BASA Arno a Rat oar eh Caotar 
St or ling Saftaata 


panels. c 



void aot_do fau lt_co loro 0 

void updato_ob joct^typoout () 

void copycolor |) ~ 

t Graph IcObjoct maka_now_objoct () 
t Cr a ph IcObjoct attoch_ob joct () 
int got_objoct_id() 

void firot_objoct_namo () 

int lock_cur_objoet I) 

int unlock_curjobjoc« () 


dofinod in thlo filo 
dofinod in thlo filo 
dofinod in thio filo 
dofinod in thlo filo 
dofinod in thio filo 
dofinod in thio filo 
dofinod in thio filo 
dofinod in thio filo 
dofinod in thio filo 


* REVISION HISTORY: 

* C/M 

* I SPOT PARAMETERS: 

* int ponoljr ocroon o poa it Ion of main panol 

* int panol_y ocroon y petition of main panol 

« OUTPUT PARAMETERS: 

* Bono 

* f TOC 7 I OH RE TORS: 


GLOBAL VARIABLES USED : 

oxtorn CridJSuxfaco* 
oxtorn Panol* 
oxtorn Main_Acto 
oxtorn ScaloCroop* 
oxtorn char* 
oxtorn int 
oxtorn float 
oxtorn tCroph IcObjoct 
oxtorn char car_ofc 

FILES USED: 


panolo [I 


ocolo_groap 


dofinod in thio filo 
dofinod in thio filo 
dofinod in thio filo 
dofinod in thio filo 
color'labolotSLM_C3_COLORS] dofinod in thlo filo 

CO lor 'indicot (HUM CS COLORS] dofinod in thlo filo 
co 1 o r'r « b t ( HUMjGSjC OLOR3 ] ( 3 ] 
cur objoct dofinod in thio filo 

)oct jnamo ( OBJECT_NAKE_LEBCTH ) dofinod in thio filo 


• NOTES: 

• NON- STANDARD COOE : 

• CALLED BY : 

» FUNCTIONS CALLED : 


void init_ponolo ( int ponol x. Int panol _y ) 

I 

int muot_init_ob joct - 0; /• in it objoct if now •/ 


/• load up tha tekono •/ 
coatnand_lnit (tokonal ; 

/• find or Croat# tha initial graphic objoct */ 
f irot^ob joet_nomo(cur_ob joct_nomo) ; 
if (cur_objoct_nomo (0) 1“ '\0') 

/* got tho id of tho graphic objoct and attach to it */ 
cur_objoct - attach_ob joct (got _ob Joct id(cur objoct_nomo) ) ; 

if (cur objoct — NULL) 

I 

Error ( 'Cannot attach to flrot graphic objoctl Exiting...*); 
oxit modulo () ; 

I 

I 

olto /• croato tho initial graphic objoct */ 
otrepy (cur _ob Joct _n«mo. 0&JECT_NAHE) ; 
cur _ob Joct » mako_now_ob Joct (cur_ob joct_nnmo) ; 

if (cur_objoct — NULL) 

( 

Error ( 'Cannot make initial graphic objoctl Exiting...*); 
oxit_modulo () ; 

) 


oxtorn int 
oxtorn Panol* 
Sco loCroup* 
oxtorn Panol* 
oxtorn Panol* 
oxtorn void 
oxtorn void 
Ponol* 

Panol* 

Panol* 

void 

void 


init_faot_cmnp () 
moko_ponol ( ) 
mako_ocalo_group ( ) 
color _ponol() 
fld_doto_panol » 
updoto_fld_doto_panol () 
ox it ^modulo (| 
rain_panol 0 
mlnma>_ponol() 
contour_panol ( ) 
dota_ooloct () 
raoat_ototo() 


moot _in it _ob joct * 1 J 


libcmop 

libponu 

libponu 

libponu 

libfldpon 

libfldpon 

filo init.c 

dofinod in thlo filo 

dofinod In thlo filo 

dofinod in thio filo 

dofinod in thio filo 

dofinod in thlo filo 


/• lock it until wo aro dono initialiring •/ 
lock_cur_ob joct () / 

/* 

* Rodoflno tho panol library coloro 

* Moto: EVERY modulo in tho FAST onvlronmont that moo 

* tha colormap mutt coll thio function bofora invoking 
*/ 


ponolt or 
ito panolol 



/* Crooto tho panolo: */ 

/• crooto main ponol •/ 

ponolt (HAIRPAMEL) - moin_ponoll KAIMTITLE. ponol_x. ponol _y ) / 

if (ponolt (HAIHPANEL) — NULL) 

Error ('Cannot oroato a ponolt Exiting. . An') / 
oxit modulo (); 

» 

/* — croato fid data panol V 

f panolo (DATA PANEL] - fid dato_panol ( DA7A_7I7LS. 

DA7AWINX, 

DAT AX I NY, 

GRID JSOLUT IOH_SCAJLAR_TYPEOUT, 
KATCH_CRiD_8UTTOH. " 
doto_formoto, 
doto_oo loct I) 


panels.c 



ocalo_group_olidor_rafcoo. 
ocolo_group_button_rotoo, 
voctor_ocalo) ; 


if (ocalagroup — HULL) 

( 

Error ('Cannot crooto actuotorol Exiting. . An') ; 
axi tmodula () ; 


/*• 


crooto color ponol 


/* initiliro to tho dofault coloro */ 

«ot_dofault_coloxa O ; 

panolo (COLOR_PANEL) - calor_ponol( COLOR TITLE, 

COLORJMHJt, 

COLOR XIn'y, 
NUM_GS_C0L0R3, 
color lobolo. 
color indicoo, 
(color rgbt f 0] [0] , 
copy_color ) ; 


if (ponolt (DATA PANEL] — NULL) 

( 

Error ('Cannot craata a panall Exiting. . An') t 
axlt^raodulo I ) » 


if (pan# It (COLOR PANEL) -« NULL) 

I 

Error ('Cannot craata a panall Exit lng . . An*) ; 
oxit^jnodulo () ; 




- craata contour panol ■ 


panolo (MI WAX PANEL) - minmax_ponol ( MINHAX_TITLE. 

MIMMAX_NIN_X. 

M INMAX_WI N~Y ) ; 

if (panolo (MlmAX_PAHEl ) — NULL) 

I 

Error I 'Cannot croato o panall Exiting. . An*) / 
axlt_modalo<) ; 

I 

/• — — crooto voctar tealo ponol */ 

ponolt lVECTOR_PANEl) - imko^ponol ( VECTOR TITLE. 

vector'xibx. 

vectornin jr. o. l ) I 

if (panolo [VECTOR PANEL) — HULL) 

l 

Error (‘Cannot craata a ponolt Exiting ... \n’J ; 
oxit modulo () ; 

1 

/* add a oeala group to thia panol •/ 

•cola group - toako aesla group! panala (VECTOR PANEL), 

SCALE GROUP *7 
scale - c ROOP~Y , 

SCALE - C ROUP~rRAKED , 

SCALE _C ROO P_NUM_V AL □ ES , 
ocela_group_labola, 
tcala_group_va luoo. 


panolo (CONTOUR PANEL) -contour ponol ( SAGER CO«TOCR_L ABEL . 

SAGER - CONTOU R_N I NX . 
SAGER - CONTOUR_XIH - Y ); 


If (panolo (COHTOUR_PANEL) — NULL) 

I 

Error ( "Cannot crooto o ponolt Exit ing .. An") ; 
o«it_modulo() ; 

) 

if ( nxiot init objoct ) 

1 

/• Init grid ourfoco data otructuro •/ 
rooot otato(O); 

I 

oloo 

( 

/* update tho act oat or o to rofloct tho grid aurfaco •/ 

update act uat oral); 

I 

/* updata tha data panol */ 
u pda t o_f ld_dot o_po no 1 () » 

/• unlock tho currant objoct to it any bo drawn •/ 
anlock_cur_ob joct () t 
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/• abated memory id 


•tat ic lot get_ob ject_id ( char* objactj 


panels.? 


DPRIW7 (*get_ob jact_id (object _n«me - %•)... 
•print f (eanaartd, 'GETjO&JECT %■*. objectj 


void *elect_ob ject () 


DPRIOT (* «ot id - %d\n". id) } 


I Of gat ob jact _id 


at otic tCraphicOb ject ettech_ob ject ( int object_ld ) 

tGraphieObjaet object; /* graphic object 


D P RI NT (* at tach_eb Ject (object _id - *d)...\n*, ob Joct_id> } 
if (ob jact_id — -1) 


■ at otic tCraphicOb jact attach_ob jact ( int objact_ld ) 


Attache* to the given object «hared memory id an< 
ratorn* a graphic object. 


object - *hra_get_local_addre** (object_id> ; 
DPRIHTC generate* object %d\n “ , object)} 


Todd ?la**el 

NASA taw* Research Center 
Sterling Software 


int objected 


object id to attach t 


tGraphieObjaet object} graphic object 


+-+ itatic void dot ach_cur_ob jact ( void ) 


Todd Plenal 

NASA Am* Ratearch Center 
Sterling Software 


DPRIffT (“detach_cur_ob ject () : before cur_ebject - %d\n* , cor_object )i 

•ha_de*trey_loealjeddre*i(cttx_ob ject) l 
car job ject ■ NULL; 
gr id_>«ger • HULL; 


Todd Ple**el 

NASA Ami Reieerch Center 
Sterling Software 


char* *cript_conman' 


eat etna 1 Hub/ Viewer routinee 


— CUD or data ch_cur_ob Jact - 


itic veld delete_an_ob ject ( char* ■cript_cenrnand ) 
int object id} 

char ob ject jiem# [OBJECT JIAKE_LEBCTH|} 

tGraphieObjaet object”* NULL} 


/• Get the object id troo the object niM ■/ 
ob ject_id * get _ob Jeet _id( objeet_naa» )} 


/• Attach to the object •/ 
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object >*■ aoloctod than Jua< 


b j_neme. co r_objaet_n am ) -- 0 ) 


hour«laaa_curoor ( 00 ) t 


/• write to the hub for the aherod memory id of the new (elect 


new_ob j_id - fet_object_id( new_ob )_ne«ne ) l 


Todd Pleiial 

NASA Ami Roeoarch Cat 

Sterling Soft wore 


/* chock the ahered memory id for validity */ 


if (new_obj_id •• -1) 


Warning ("Selected object la no longer aval labial') i 
updote_ebject_typeeut () t 
hour* laaa_coraer ( OfT ) j 


/* attach to the new object' a (hared memory id */ 


if ( (nev_eb j - attoch_ob ject lnew_obj_ld>) — BOLL) 


/• detoch from the current object'a i hared memory Id •/ 


l_eaqar defined in thia 
object defined in thia 
object name [OBJECT NAME LENGTH ) " " 
ob ject~name [OB JEC7”nAKE~LENCTH ) * * 


/* update the current object to the new 


/* update all actuetoi 


hourf laaa_curaor ( Off )/ 


■ END Of aelect_ob ject ■ 


•old update_ob ject_typeout ( ) 

int lock_cur_ob ject () 

int un loeh_cur_ob ject 0 

Cr id_3ur face* lock_ob ject ( ) 

t Graph icOb ject make new_object() 

int inc_Tock_count () 

•old detachjcur job ject 0 


defined in thia 
defined in thia file 
defined in thia file 
defined In thia file 
defined In thia file 
defined In thia file 
defined in thia file 


i void new_object( char* acr ipt_co«nmand ) 


► atatlo »oid new_ob ject ( char* acr i pt _< 


Crid_Surfooe* new_qr ld_aaf or; /* -> new outface obj 

t Graph icOb ject no w_o b j ; /* ten* new object 

char new~obj_nome(06JECT_RAHE_LENGT«lf /• no™ 

int dirj /• I.J.K direction 

int type! /• START. END , HID, ZONE 
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god color 

O OTP 07 PARAMETERS: 

Bono 

TUBCTIOB RETURN: 

Mono 

GLOBAL VARIABLES OSES: 

oxtorn tnt color indico. [ (TCM_C3_C0L0R3 ) / thi* £ilo 

oxtorn (loot eolor_rgb* ( NUH_CS_C0L0R3 J (1) / thi* filo 

oxtorn Cr id_3ur£oeo* grid_*agor/ thi* filo 

TILES OS ED: 

Bono 

BOTES: 

HOB- ST ABOARD CODE i 
CALLED BY : 

TUBCTIQBS CALLED : 

int lock_cur_ob joct O dofinod in thio filo 

int unlock_cur_objoct () dofinod in thio filo 


Mpy color •/ 

itio void copy_color ( int attribute I 

Lf ( ottributo >- 0 it ottributo < HEM CS COLORS ) 

[ “ “ 
lock_cur_ob joct () I 

flrid_oofor -> color_indlcoi {ottributo] “ color_lndicoo (ott ributo ) / 
grld_*ogex -> color“rgb» (attribute ) [R] - colorrgb* (ottributo] (R) / 
»rid_oogox -> color_rgb* (ottributo) EG] - colorrgb* (attribute) [C ) ; 
grid_**g*r -> color_rgb* (attribute) (B) - colorrgb. [ottributo ) (8) t 
unlock_cur job joct 0 i 


— EM) or copy_color •/ 


AUTHORS: 

Todd Plo.ool 

RASA Amo* Roaoorch Contor 
Starling Soft mo ro 

REV IS I OH HISTORY: 

4/90 

I HP 07 PARAMETERS: 

007 POT PARAMETERS! 

Bono 

rONCTIOH RETURN: 

GLOBAL VARIABLES USED: 

oxtorn int color lndicoo(NOM CS COLORS] ; thio filo 

oxtorn f loot color^rgb* (MCM_CS~C0L0R3) [ 3] / thio filo 

oxtorn CridjSur foco* grid_*ogar; thio filo 

TILES USED: 

Bono 

BOTES: 

NOB -ST ABOARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 


! * lnt lock_eur_objoct () dofinod in thio filo 

i * unlock_cur_objoet(> dofinod in thio filo 

— */ 

/• — copy_color* 


■totic void copy _co lor* ( void ) 
int i> 

for C i - 0, i < NUM_CS_COLORS: ) copy color ( i >, 


/* END OT copy_color. 


►+ ototic void copy jco lor* 1 void ) 



panels .c 


++ ototia void updot *_color ■ ( void ) 


Copy tho color* from tha grid outface atructuxo into 
tho globol color* array and than fixoo tha color odit 
ponol to dlaploy tho*o color*. 


AUTHORS: 


Todd Plosaol 

NASA Jbnot Roaoorch Cantor 
Starling Softmro 

REVISION HISTORY: 

4/90 

I SPOT PARAMETERS: 

Bono 

OUTPUT PARAMETERS: 


> 


/*• 


locb_cur_ob joct 0 ; 


for (i « 0/ 1 < HUM CS COLORS; ioo) 

( “ ~ 

colotindico* (i) - grid_*agor 


color_rgb* (i) (R) - grid_*ogor 
color_rgb» (i) (Cl * grld~*ogor 
color_rgb* (i) (8) * grid~*ogor 


co loxindico* ( i ) ; 

color_rgb* ( 1] (R) / 
color_rgb*(l) (CJ/ 
color_rgb*( i) (8); 


f ix_c«lor_p«n*l O ; 
unlock_cur_ob Joct ( ) i 


END OT ttpdato_colot* 


Nona 

TUMCTIOH RETURN: 


GLOBAL VARIABLES USED: 

oxtorn int color indico* ( BUM_GS COLORS ) , thio filo 

oxtorn float color jrgba [ NUN_CS“C0L0«3 ] ( 3] ; thl* filo 

oxtorn Grid_8urfoco* grid_«ogor/ thi* filo 

TILES USED: 



/•♦+ *totic void *ot_dofau lt_color* ( void ) 

* PURPOSE: 

* Copy tho do fault coloro into global* 

* AUTHORS: 

* Todd Plaaaal 

* NASA Amo* Roaoorch Contor 

* Starling SoftMoro 

* REVISION HISTORY: 

* 4/90 

* INPUT PARAMETERS: 


CALLED BY : 

TUWCTIOBS CALLED : 

oxtorn void fi*_color_ponol () i.ooaaa 

iBt locb_cur_objoct () dofinod in thi* filo 

int unlock_cur_ob joct () dofinod in thi* filo 


Nona 

OUTPUT PARAMETERS: 


TUNCTION RETURN: 


:o_oolor* 


-•/ 


GLOBAL VARIABLES USED: 


itie void opdatojcolor ■ ( wo id ) 
int ij 


/• loop on coloro 


■/ 


oxtorn int 
oxtorn float 
oxtorn int 
oxtorn float 


dofea lt_color indico* IireM_CS_COLOR3 ] t thi* filo 
dofou lt_eolor rgb* ( NUM_C3_C0L0RS) (3): thl* filo 
co lor ^ind ico afNUM CS_C01GR3) » thi* filo 
color_rgb*(NUMjCS~COLORS)(l|» thi* filo 


ORIGINAL PAGE IS 
OF POOR QUALITY 




OF POOR QUALITY 




mln_act* .objeetfrom » 
f - *dd_fr*oi*(p, x, y) ; 

U ( f — mull ) 

r 

Error ('Could not oak* an actuated Exiting .. An") f 
axit modulo I) ; 

\ 

x ■> JCQRICIH; 
y - Y ORIGIB - SPACE I 

raln_act* .drav_obj#ct_button ■ 

• - oak* actuator I pnl toggla_button, x, y, D RAW_B UTTO N_L AH E L ); 
i£ ( a — BOLL ) 

I 

Error ("Could not moke actuator*! Exiting — \n*)i 
axit modal* ()r 

5 

a -> val - 1.0; 

a -> upfunc - (PHl_ArUKC) toggl#_draw_func; 
pnl_add*abcct (a, f) ; 

y — r_BOTrOK_IBC; 

/• Op data All Object* Button V 

moin_act*.update_ebj*ct*_bottoa ■ 

a - mako actuator (pnljtoggl* button, x.y. 0PDAXE_0BJECT3 BOTTOM LABEL); 
if ( a “ BOLL ) 

J 

Error ("Could not make an actuator 1 Exiting .. An") ; 
exit_module() ; 

) 

a -> upfunc - (PHL_ATUNC) updat*_ob joct ■ ; 

/* HACK: unia^ lamented in this roloa** *o bid* it */ a -» oiaiblo - 0; 
pnl_*dd*ttboct (a. f) ; 

y — Y_BOTTOB_IBC; 

/• tew object Button */ 

roinacti . n*v_ob ject button “ 

a - make actuator) pnl wide button, x. y. HEX OBJECT B OTTOS LABEL )/ 
if ( o “ WILL ) 

( 

Error ("Could not oak* an actuator) Exit ing . . An") ; 
exit modulo (); 

» 

a -> upfunc « (PKL_ATUMC) n*w_obj*ct; 
pnl_*dd*ub*ct (a, f) ; 

y — Y_BUTTCN_IBC; 

/* Copy Object Button •/ 

main act*. copy object button - 

a - make actuator I pnl wide button, x. y. COPY OBJECT BUTTON LABEL ); 
if ( * ~ MULL ) 

( 

Error ("Could not mako an actuator) Exit ing .. An") ; 
exit module!) ; 

} 



a -> upfunc * (PBLATOBC) copy_obj*ct; 
pnl_add*ubect (a, f ) ; 

/• Object Type out •/ 

y — 0.5 • 0BJECT_TTPE0U7_LISE3 ♦ 0.25; 

«nnin_act ■ ,ob ject_t ypeout - 

a - moke actuator ( pnl t ypeout, x. y. OBJECT_TYFEOUT_LABEL ) ; 
if ( a -- BULL ) 

I 

Error ("Could not make an actuated Exit ing. . .\n") ; 
*xit_medul*() j 
I 

a -> loboltype - PBL_LABEl_TOP_LETT ; 
a -> upfunc - (PHL AT (JSC) .elect object; 

PS. ACCESS (Type out 7 a. *ira) - OBJECT_BUT SIEE; 

PHL_ ACCESS 1 Type out . e. lin) - 08 JECT_T YPEOUT LIKES; 

PHL_ ACCESS (Type out . a, col) - OBJECT T YPEOUT_COLS I 
PNL_ ACCESS (Type out , a. dalim.tr) - "\n"; 

PSL ACCESS (Type out , a. mod*) I- PNLTOMNOCURSOR; 
pnladd.ubact (a. f ) ; 

if ( PHL ACCESS (Typeoat . *, buf) — BOLL ) roturn BULL; 

/* — Data Info T ypeout •/ 

> ~ (.5; 

y - Y_ORICIB - <.15; 
main_oet a. data__info_t ypeout “ 

e - make_actuator ( pn It ypeout, x, y. DATA INTO LABEL ); 
if ( a — MULL ) 

( 

Error ("Cou Id not make an actuatad Exiting. . An") ; 
axit module () ; 

) 

a -> labeltype - PHL_LABEL TOP LETT; 

PHL_ACCESS ( Type out . a. *1x7) -~DATA I(fTO_BUr SIEE; 

PHL_ACCESS (Type out . a. lin) - DATA INFO LIMES; 

P ML~ACCESS ( Type out . a. col) - DATA~IBTO - COL3; 

PBL_ACCESS (Type out , a. dalim.tr) - »\n"7 
9 HL~ACCESS ( Type out , a. mod#) t« PHL TOM NOCURSOR; 

P BL~ACCESS ( Type out , a. mod*) t« PBL~TOM”nORECIOM; 
pnl_adda«t (a. p) ; 

if 7 PML_ACCESS (Typeout , a, buf) — HULL ) rat urn MULL; 

/* Looping Labol •/ 

x - X_ORICIH; 
y — Y_B UTT OKI BC ; 

raain_act*.looplng_labal - 

a - met* actuator! pnl_lab#l. x. y, LOOPING LABEL ); 
if ( a -- BULL ) 

I 

Error ( “Cou Id not (nak* an actuator! Exiting. . An") ; 
axit_modula() ; 

) 

pnl_addoct (a. p) ; 

/* — Loop Button* */ 

y — 0.5 • (1 + L00P_BUTT 0M3_RGWS) + SPACE; 



y. 

LOOP BUTTONS CRAKE D. 

LOOP _ BUTTOM3 — RADIO GROUPING. 
LO0P~BUI TOM S_ROX3 - 1 /• HACK */. 
1 oop~but ton *3par_r om, 

1 oopbut t on *_t ype* , 
loop_button»_l*b*la, 
loop button* row_lab*l a, 

HULL? 

1 oop_b ut t on elect ion* , 
loop_button*_func ) ; 


if (main act*. loop button* group “ MULL) 

( 

Error ("Could not mako actuator* I Exit ing. . An") ; 
• xlt_madulo() ; 


/* S Ildar Button* •/ 

y — 0.5 * (1 ♦ SLIDER_BUTT0BS_R0NS) + SPACE; 

mi n act * . • 1 i dar _but t on i_g roup ■ 

make_button_group ( p, 

x. 

y. 

SLIDER BUTTONS TRAMED, 
SLIDER~BUT70HS~RADIO GROUPING, 
SLI0£RJIUTTaBS_R0N3. 
a 1 id* r_butt on»_p*r _r ox , 

• 1 idar_butt on»_t ypo* , 

• 1 idor_b ut t on»_ lab • L* . 
a Ildar button* row labol*. 

MULL. 

• 1 id* r_butt on*_**l oct ion* . 

■ 1 id* r_butt on»_func ) ; 

if (rain *ct*.alld*r_button* group ■» HULL) 

( 

Error ("Could not mako actuator*) Exiting. . An") ; 

*xlt_<nodul*() ; 

I 


/• Surface Button* •/ 

y — 0.5 • (1 + SURTACE_BUTT0HSJ10N3> + SPACE; 

raln_oct* .aur face_buttona_gxeup « 
m*k#_but ton_group ( p. 

x. 

y. 

S URf ACE_BUTT0H3_r RAKED . 
SURTACE_BUTTON3_FADIO_CROU7 IHC. 
3URyAC£~6UTTON3_ROtO, “ 
a ur face_but t on*_per_row. 

• ur f*ce_butt on*_t ype* , 

* ur f a ce_but ton* ^labels, 

■ ur f a ce_but t on ■ _r o w_la ba 1 a , 


panels.C : : • • .. I:.'-'" 1 : 

MULL. 

•urfac*_button*_*alaction*. 
•ur f*c*_botton»_func ); 

if (maln_»ct. . «urf ace button* group NULL) 

I 

Error("Could not ml. actuator*) Exit ing. . An") ; 
•xit jnodul* () ; 

) 


/• * — Eon* Typoin Croup — •/ 

x +- 9.5; 

rnain_oct » . ron#_typain_group ■ 

mak*_typ*inj7oup( p. 

NULL, 

x. 

y. 

I NT TYPE. 

ZONE TYPEIB FORMAT. 

eone"ty?ein”midth. 

*on* — typoin value*, 

ZONE - TYPEIK~ LIMITED, 

zone"typein"label. 

ZOBE^T YPEIN j.AB£L_TYPE. 
rone_func ) ; 

if (rain act*. son* typeln_group — NULL) 

i 

Error ("Could not make actuator *1 Exit ing. . An") ; 
oxlt modulo 0 ; 

I 


/• — ........ — Slldar Group * */ 

x - X ORIGIN; 
y — B.25; 

main_act . . • lid*r_group - 

rak *_» 1 ida r_g roup ( p . 

x, 

y. 

SL I DER_CROUP_rRAMED , 

SL I DER_GROUP_SELECT I 0N_BUTT 0B3 . 

SLIDER_CR0UP_TY7E. 

•lidargroupvalua*. 

■lldar^gtoup^labol^lattar*. 

*lid*r_gronp_diracti*n_l*b*l. 

i jk_rang**_fune, 

dir act ion_func. 

bound* ry_*urfac**_fu nc ) ; 

if (main_act*.*lid*r_group -- NOLL) 

Error ("Could not maka actuator* I Exit ing. . An") f 
axit radulal) ; 

I 

/* hid* tho aalaction button* until w* ontor imiltl aurfaco mod* •/ 



ORIGihiAL PAGE IS 
OF POOR QUALITY 




ACC €332 (me in_ect a . a 1 Ida r_g roup . h lda_ aa 1 act _but t on ») ; 
/* highlight tha middle elider •/ 

ACCES33<main_aeta.elidar_gro«p, highlight_e Ildar. HID) 
/••••••■•a**** eagar panal •*•••••••••••••••••• 

SagerPaoal <p. XjORICIH. YORICIN) ; 
rat urn p; 


/* END OT main _p.nal 


panels.c 

• BOTES: 

• BOH -STANDARD CODE : 

• CALLED BY : 

• rCBCTIOBS CALLED : 

* eatarn raid cloaa_parant_panal {) 

• eatarn Panal* mnkepanel () 

* eatarn Actuator* maka_act uatar I) 

* void iat_mifuno«_f nnc () 

* void roirt rrdntno* () 

' ad ju a t_mi nrao a_f u nc ( ) 

* void a at _ra Inina m_moda a () 



1 lbpanu 
1 lbpanu 
1 lbpano 

dafinad In tbla file 
defined in thlo flla 
dafinad in thla flla 
dafinad in thia flla 


/•+♦ at at lc Panal* minnaa _panal < char* titla, int win_a, int win y ) 

* PURPOSE: 

* Croat aa and diaplaya tha acolar minimi panal for eager. 

* Tha pooal la titlad if titla ia not HULL, and ia poaltlonad at tha 

* aeraan coord inataa <win_a, win_y) . 

* AUTHORS: 


Todd Plaaaal 

NASA Amea Raaaarch Con tar 


Star lino Software 
REVISION HISTORY: 

«/•• 

INPUT PARAMETERS : 

char* titla 
int win_» 

int wtn_y 

OUTPUT PARAMETERS: 

Nona 


titla for panal window 
initial a poaltlon of window 
Initial y poaltlon of window 


mintnaajpanal - 


at otic Panal* mlruna* t_panal ( char* titla. int 


int win_y ) 


Panal* p, 

Actuator* at 

Actuator* tat 

Actuator* ft 

float mi 

float y, 

float ht 


float 
int 
float 
float 
•tat ie 
atat ic 
■tat ic 


/* tmp panal 
/• tmp actuator 
/* tmp actuator 
/• fro™ actuator 
/• act a poaltlon 
/• act y position 
/• act height 


“» /* act height 

/* looping indaa 

y_inct /* y poaltlon incromi 

*_■•*•* /* *000 y position 

cllp_ma_labol(2) (It) f /• clip multialidar 

no rm_m»_l aba 1(2) Ilf); /• norm mult ialidar 

lagan d_labo 1 i [NUM_LECESD_VALUES1 (1C); 

/* legend value a 


V 

*/ 

V 
•/ 
•/ 
•/ 
•/ 

V 
*/ 
•/ 
*/ 
•/ 


•/ 


/* — Mlnmaa Panal 

p » pnl^mAponol {) t 
p -> lobal » titla; 

» -> i * (long) wln_a> 
p -> y - (long) win^yj 
p -> ppu ■ 3t.O ; ” 

p -> via lb la “ 0; 


* rUBCTIOB RETURN: 

* Penal* p e pointer to tho panel 

* GLOBAL VARIABLES USED: 

extern Minmaa_Acta ntf.nma*_acta ; declared in thla filo 

* riLEfl USED: 


a - K_ORICIN; 
y - YJ»ICIN; 

t * — * window cloaa button •/ 

a w pnl mkoct (pnl_wido_button) ; 
a -> label * "Cloaa"; 

■ 

a -> y - y; 

a -> upfunc * (PRL^AFOBC) cloaa_parant_panal; 

pnl oddoct (o. p) ; 



/* — Mlnmaa Framo 

y -■ Sf«_rRA«E_HEICNT; 

f - pnljnkoet (pnl frame) ; 
f -> a - a; 

f -> y w yj 

PHL_ACCES3 (Frame . f. mode) I- PNL_rM_FRE E ; 
pnl_addact (f, p) ; 

minmas_act a . minmoa_f rtmo - f ; 


/* Minmoa Mod a a •/ 

a - Jt_rRAME ACT; 
y - Y_FRAME~ACT ; 

a - pnljnkact <pnl_toggle button); 
a -> label - AUTO_MI1MAX_UPOATE_LABEL j 
a -> a w mi 


a -» val - 1.0; 

a -> u - AUTO_NI(«AX_UPDAIE ID; 
a -> upfunc - (PN1__ATDHC) art mlnmaa modal; 
pnl_eddeuboct (a. f) ; 


panels.c 

o -> upfunc - (PHL_AT0NC) eat _rainnm»_medee; 
pnl_eddaubect (a. f ) ; 

minma*_oct ■ .modo butt on» (SIRCLE_ZOME HI (MAX] 
y — 0.75; 

• ■ pnl_mkact (pnl_cadio_button) ; 
a -> label - SUBSET_MI»UxjLABEl; 

a -> B - Ml 

■ -> y - y; 

o -> U - SUBSETMIIMAX ID; 
o -> upfunc - <PNL_ATU5C) eet_minnoa_tnode*; 
pnl_addaubact (a. f ) ; 

mlnma*_oct« .modebuttona (SUBSET_MINMAX) a Of 
y — 0.75, 

o - pnl_irfcact (pnl_rad ie_button} ; 
a -> label - SURFACE_MIHMAX_LABE L ; 
a -> a « a; 
a -> y - y; 

a -> u - SURTACE M INMAX ID; 
a -> upfunc - ( PNL_AFUBC) aat_min™a_modaa ; 
pnl_add« uboct (a. cTl 



minmaa_act« .auto_minmaa_updata_button ■ a; 
y — 0.75; 


miiwui.rt • .modabuttona [SURTACEMIHMAX) w a; 
y — 0.75; 


a - pnljnkact{pnl_to«la_button»; 
a -> lobal - UP0ATE_ltl3lTDER3_LABEL; 
a -> a • mi 
a -> y w y 7 

a -> u - UPDATE_M(3LIDERS ID; 
a -> val * 1.0; — 

a -> upfunc » (PHL_AFUNC) aot_minmaa_modaa; 
pnl_addaubact (a. f) ; 

minma»_acte.updoto_mlnmo*_elidorB_button ■ a; 

a +- C.O; 
y 0.75; 

a - pnl mkact (pnl radio button); 
a -> label - MULTI SOSE~MItMAX LABEL; 

a -> a - a; 

• -> y - y; 

a -> u * MULT I_rc«E_M INMAX ID; 
a -> val - 1.0; 

a -> upfunc - (PN1_AF0NC) aot_minmaa modaa; 
pnl_addaubact (a, f) ; 

mlnmaa^act a .moda^buttona [MULTI_EOKB_HIMAX] - a; 
y — 0.75; 

o ■ pnljnkact (pnl radio button); 
a -> label - SIKCLE_ZOBE_M [BUI LABEL; 

• -> * - *1 

• -> y - y; 

■ *> o - SI«CLE_EOBE_HI»IAX_ID> 


a - pnl_mkact (pnl_radia button); 
a -> labal - SURFACE_SUB3ET MI (MAX LABEL; 

•->*•*/ 
a -> y - y, 

a -> u - SORPACEJS UBSET_M INMAX^I D ; 
a -> upfunc - (PHL_Aru»C) aat idnmi modaa; 
pnl_addaub«ct (a. f > ; 

minmna_act t .moda_butt ona ( SURrACE_S08SET_MIHMAX) - a; 
pnl_andqroup(p) , 


* - XFRAMEACT 1 

/* Invart Clip Tast Button •/ 

a « pnl_n*ect (pnl_to«f la button) ; 
a -> labal - 1 NVERT_CLIp”tEST_LABEL; 

a -> y a y; 

a -> upfunc - (PHL_ATUMC) invart clip teat; 
pnl_addaubact (a. f) ; 

minmaa_octa . invert _cl ip_t aat_but ton a a, 
y — 1.0; 

/a Clip. Norm i Legend Lab* la •/ 

a a pnl_f*act <pnl_labal) ; 
a -> labal - CLIp“LABEi/ 

• -> a - ■; ~ 
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.. . . ^ 

sbc :,. ... 

a -> y - y» 

/• end or coctour_p*n#l ./ 

a -> U - CONTOUR MI* ID/ 


a -> down fane - (PHI AT TOC) clear typain; 


■ -> upfunc - (PBI ATUBC) sat contour legend; 


PHI ACCESS (Typain. O. Ion) - FLOAT STRING WIDTH; 


PHI ACCESS {Typo In, o. Itt) - LEGEND HIH NUMBER SIR; 


pnl_addaet (a, p) ; 


contour_ect* -contour_rain_t ypaln - a; 


y +- MULT ISLI DER_HEICH7 + 1.5/ 


o “ pnl mkect (pnl typo in) / 


a -> lebeltyp* - PNL LABEL TOP; 


a ~> lab-a 1 ■ 'Contour Has'; 


A —> X * MJ 

/*» static void tot contour legend! char* str ) 

• -» y * y t 


• -> 0 - COST OCR MAX 10/ 

• PURPOSE : 

• -> downfunc - (PHI AT TOC) cloor typoin/ 


• -> upfuoc ■ (PNL AT UNC) sot contour lagand; 

* Sat* tho contour* legend according to min. max, numcontours. 

PNL ACCESS (Typoin. o. Ion) - FLOAT STRING WIDTH; 

* and incromant 

PNL ACCESS (Typoin. a. *tr) - LEGEND MAX NUMBER STRz 


pnl addoctlo. p) / 



« AUTHORS : 

contour ado. contour mi typoin ■ a; 



* Paul Ealaita 

— Contour * /Increment Typoin* •/ 

* NASA Am** Ra.aarch Cantar 


* Starling Softwor* 

a - X ORIGIN >3.0/ 


y - Y_MUCIN + 3.5; 

* REVISION HISTORY : 

a o pnl mkect (pnl typoin); 

• 12/90 

a -> laboltypa - PNL LABEL TOP; 

* 5/91 oddad scripting 

a -> la No 1 - ” Ruit^oc of Contours'; 


•->>*■+ 1.0; 

• INPUT PARAMETERS : 

a -> y - y; 


a -> o - CONTOUR HUM ID; 

* char* itt cocmand /actuator 

a -> down func * (PNL Af TOC) claar typoin; 

ft 

a -> upfunc « (PNL AT ONC) sat contour lagand; 

* OUTPUT PARAMETERS ; 

PNL ACCESS (Typoin, a. Ian) - I NT STRING WIDTH; 


PNL ACCESS (Typoin, a, *tr) - *40'; 

• Non* 

pnl addoctlo. p) ; 



* FUNCTION RETURN : 

contour acta. contour num typoin » a; 



* Non* 

y — 1.5; 



* GLOBAL VARIABLES USED : 

a *■ pnl mkact(pnl typoin); 


a -> laheltyp* - PNL LABEL TOP; 

* astern Minnas Acta minmns act* dafinad in thi* fila 

a -> label * ' Incromant of Contour*'; 

• astern Grid Surface* grid *ogar defined in thi* file 

*-»!•*/ 


a -> y - y/ 

* FILES USED : 

a -> u - COST OCR INC ID; 


a -> upfunc « (PNL AT UNC) sat contour legend; 

* Non* 

PNL ACCESS (Typoin, a. Ian) - FLOAT STRING WIDTH; 


PNL ACCESS (Typoin. a. str) - ZERO STRING 16; 

■ NOTES : 

pnl addact (a, p) ; 



* Require* that mnth.h b* included for otof 0 

contour acta. contour inc typoin - a; 



• NON-STANDARD COOE s 

rat urn p; 



* CALLED BY : 


* FUNCTIONS CALLED : 


!!!_ 

pan' 

elS.C:;;\:4;/^ ;:i: A- /■> • j’ V.'V * 

• 

inc_«tr ■ PNL_ACC ESS (Typoin, contour act*. contour inc typain. atr); 

* void updat*_l*g*nd ( ) dafinad in thla filo 


• int lock_cor_ob jact 0 dafinad in thio filo 

inc_f lag - miron**_f lag • 0; 

• int unlock cur object () dafinad in this filo 


* — — | 

if (*trca**cnv(m>d*. 'MIHMAX') ■■ 0) 

— */ 

\ 


atinnaa flag *1; 



“ 

•print f (min atr. FLOAT STRING FORMAT, t 1) ; 

•tat ic void s#t_contaur_l*g*nd ( char* str ) 

sprint flnas_.tr. FLQAT~STRINC~FORMAT, t2>; 

( 

pnl_fisact (eont our_aet • .contour_min_t ypain) ; 


pnl fisset (contour act*. contour mas typain); 

Idafino IS_REMAIHDER(mas, min. inc) \ 

1 

(((mss - win) /inc) « (int) ((mo* - rein) /inc) ? 0 ; 1) 

also If (*t rcaaocwp (mode. 'NUMBER') — 0) 
| 

Actuator* a; 

par** corrnan d(*tr. 'Is Id' , mode, inune); 


•print f(nu»c_*tr. INT_STRIBC_rORMAT , nuna) ; 

char* min_*tr; 

pnl flsact (contour act*. contour num typoin) ; 

char* mas_*tr; 

) 

char* numc_ft r / 

also if (st rcaaocwp (mode, 'INC') — 0) 

char* lnc_otc; 

t 


inc_f lag ■ 1; 

float inc; 

par*a_coimand (*tr . 'Is If', mode, fctl); 

float tl. t2; 

•print f(ine_*tr. rLOAT_STRINC_FORXA7, tl); 

int mine/ 

pnl flsact (contour act*. contour inc typain); 

char mod*(l<); 

) 

int inc_f lag , ndmno*_flog; 

/B 


gat validity of volua* 

if (1* act (itt) ) 

if I (int)atof (numc_.tr) < 2) 

( 

t print f (nurnc_.tr. I NT ^ STR I »G_ FORMAT , 2); 

a • (Actuator*) *tr; 


if (a “ eont our_ect • .contour_min_typoin II 

if (atof ( ine_st r) <” 0.0) 

a wo eont our_*ct a .contour_mo*_t ypoin ) 

•printf (inc_*tr. FLOAT_S7RINC_FORMA7 , 0.1); 

min *tr • PNL ACCESS (Typoin , contour act s . eont our _min_t ypa in, str); 

/• 

mas atr ■ PNL ACCESS (Typ a in , contour act a. contour _mos typoin, str); 

begin chock* 

loodcoCTTor.d (- COW TOUR Is If If-, 'KINMAX*. 

*/ 

at of <min_«tr) , itof (nai^stc)l j 

if ( mi nine s_ flag) 

alio if (o oo contour act*. contour num typoin) 

update_logand(atof (min_st r) , otof (mas_*tr) , 

1 

contour act*. contour label*); 

load con*** nd<“ CONTOUR Is Id". “ NUMBER' . 

1 

atol (PNL ACCESS (Typoin, a, str))); 


1 

a l*o if (inc flog) 

alia if (a oa contour act (.contour inc typoin) 

\ 

1 

numc - (int) ( (atof (zias_*tr> - otof (min_*tr ) ) / atof (inc_*tr)) ♦ 1 ♦ 

load co/anandr CONTOUR «* tf*. 'INC". 

IS_REKAIKSER(at of <mas_*tr) . atof (min atr). atof (inc atr)); 

at of (PNL ACCESS (Typoin. a. str))); 

■ printf (numc_etr. INTSTRINC^FORMAT . numc); 

1 

pnl flsact (contour act*. contour num typoin) ; 

rot urn; 

I 

) 

/* update tho incrosant no matter what */ 

par *a_cocamnd ( *t r . *••*. soda); 



if (lino flag) 

/• «rab all tho string* first */ 

\ 


inc * (atof (mss *tr) - atof (min *tr)) / (atof (numc str) - 1.0); 

min_»t r - PNL_ACCES3 (Typain, contour_acts .contour_min_typaln. st r) ; 

.printf 1 inc_itr. _ FLQAT_STRINC_FOraiAT. inc) ; 


pnl_fisoct (eont our_oct * .contour_inc_t ypoin) ; 

mt_M( - PIL_ACCES3 (7ypain, contour_act* .oontour_na*_t ypoin. *tr); 

1 

anejtt • PNL^ACCESS (Typ* in. contour_acta.contour_num_t ypoin. atr); 

lock_cur_ob joct 0 ; 
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ACCESS* (am Intacta .typtjnnn^froD^. *ot_aalact ion. 0. SCALAR_TYPE. 1 
•*t_typ«^foiw( "TYPE SCALAR* ) ; 


/* if • * act or t yp* «■ aalact ad than aalact voetar typa •/ 

if ( grid .agar -> randar mada — PLAIB_VECTOR3 II 

grid'aagor -> randar ~mado — NORM VECTORS ) 

I 

ACCESS* (main acta. typa man a group. tat aalaction, 0. VECTORTYPE. ) 
#at_typa_func( ‘TYPE VECTOR* ) ; 


1 

/*- 


unlock_cur_ab jact I) ; 


- — END or I 


: candar fane - 


► atatic void opt iona_f one < int group, int it am ) 
' PURPOSE: 

Handlaa tha option* mans function*. 

* AUTHORS: 

Tadd Plaaaal 

NASA tea* Ra.aarch Cantar 

Starling So ft -or* 

* REVISION HISTORY: 


i group call-back 


> I SPOT PARAMETERS: 


• 0 OTP OT PARAMETERS: 


> P UNCTION RETURN: 


• GLOBAL VARIABLES USED: 

• FILES USED: 


NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
rUNCIIOBS CALLED : 


atatic aa id opt lona_func ( int group, int itam ) 


intaractiva ■ Ip 
lack_cur_ab jact 0 ; 

■Hitch (group) 

I 

CO** 0: 

val - lgcld_*agar->draa_out lino: 

lo*d_con™nd( "OPT IONS ll 9a". "OUTLINE". OB_OR_OTF(**1) ) ; 
braak; 

val ■ I gr id_*agar ->drav_glyph; 

lo*d_conmond ( ’OPT IONS 9* *■*, "GLYPH", ON_OR_OTr (val)l ; 
braak; 
cot* 2: 

laod_conti»»nd( "OPTIONS *■*, "DELETE NORMALS") ,- 
braak; 
caaa 3: 

laad_coirtnond | "OPT ION3 %•*. "RESET"); 
braak; 
ca*a 4: 

loo d_COOTTmnd( "OPTIONS %»", “DEBOC"); 
braak; 
da fault : 

intaractiva * 0; 
braak ; 

I 

unlock_cur_ob jact 4) / 

END Of optiona_func — • 


/*** *tatio void *otjoptiona_func( char* •cript_canrand ) 

* PURPOSE: 

* Handlaa tha option* manu function*. 

* AUTHORS: 


Todd Plaaaal 

NASA An** Roaoorch Cantar 
Starling So ft oar* 


* REVISION HISTORY: 


«/«9 

12/90 canaartad ta a manu group call-back 

S/91 convartad ta acripting 


' OUTPUT PARAMETERS: 


• r UNCTION RETURN: 


• GLOBAL VARIABLES USED: 


• NON-STANDARD COOS : 

• CALLED BY : 

• FUNCTIONS CALLED : 


lock_cur_abjact () 
unlock_cur_ob jact () 


• — aat_optlen*_func - 


atatic void aotapt iao*_func ( char* 


param(32); 

val|l»; 


ind. **»*, param) ; 


par ■a_ooonand (*cript_« 
lock cur ob jact ( ) ; 

if <*troa*acmp( param. "OUTLINE") — 0) 

pac*a_coa*nand(acript_conaand, *9* 9a*. param. val); 
gr id_*agar->draw_aut lina « 0N_0R_0IT_VAM*al) ; 

ACCESS* (ma in_oct a -opt lan* mono group7 aat aalact ion. 0. 0. grid ■ ag* r -> dr a v c 

, 0 ); 

I 

alaa if ( at rcaaocn^l param, "GLYPH") ■« 0) 


par **_carrtrand ( ter ipt cotmond, *9a 9a", param. val); 

gr id_*ag*r->draw_g lyph - ONjORJJFF^VAUval) ; 

ACCESS* (maln_act a. apt lana_nanujgroup. aat_*alactian, 1, 0. grid_aag< 

i ; 

I 

alaa if (at rcaaocmp (param, *DELETE_N0RMAL3"> — 0) 
da lata hoob1i||j 

I 

alaa if (at reaaoemp (param. "RESET") -- 0) 

I 

raaat atata(l) » 

I 

alaa if (at reaaacmp (param. * DEBUG") » 0} 

I 

dunp atatal); 

I 

unlock_cur_ob jact () / 


■ END Of *at_apt ion*_fune ■ 


atatic void dunp_*tata( void ) 

PURPOSE: 

Print* tha contanta ef tha grld_aag*r atructuro and global*. 

AUTHORS: 

Tadd Plaaaal 

NASA Ana* Raaaarch Cantar 
Starling Softwara 

REVISION HISTORY: 

«/99 

INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

Nana 

FUNCTION RETURN: 

Nona 

GLOBAL VARIABLES USED: 
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astern Cr id_Sar f aca* gr Ida afar declared In this file 


gridaagar -> upd«ta_rairvmo«_*l idar « ) ; 
["dir action - a 

frldjifti -> dlrtctionl) 

[ " loopmod* m 

gr idiaqar -> loopmode) , 

I‘loop_dir ~ ■ 

gridaagar -> loop_dir ) t 
["loop iurfaca " - 


lockcurokjact () 
ualock_cur_ob jact () 


printf C\n") i 
print f Cob;)act_type 

grld_aogar -> ob ject_t ypa) / 


id_aog*r -> draw); 
ew_out lln# 

id~a*g*r -> dr«a_oot line) | 
ewglyph 

id_aag*r -> drow_glyph) i 


qiid iafar -> fr am ed) | 
itf Caheded 

qridiiqtr -> ahadad); 
.tfCtyp* 


grid_asg*r • 
grld_*ag*r - 
gtid_aag*r - 
gridiogar - 


>tir_color_t ypa 

•cqar -> corvt our_oolor_typa) 
>r_color_t ypa ~ , “ 

•agar -> **ctor_color_typa ) t 


gtid_aager -> renderjaode) > 
pr i nt £ ( * c lipjnode 

grid_iogar -> elipjtnade) j 
pr i nt £ ( "minim *_mode 

gr ldaagar -> minme>_mede ) > 
printf Cinvert_c lip__t*at 

grid_aeger -> inwertjclip Jteat ) } 
printf Ceuto_mlnma>_updat* 

grid_aagar -> aoto_£tdnnaa_updot a) , 
printf Co pdet ejm iruna >_* lidara 


panels.c 


grid^aager -> color_lndlce* (OUTLIHE_COLOR) ) » 

Ccolor_rgba [OUT LIKE COLOR) - itf tf tf)\n". 

g t id_aogar->color 7gba [OUTLINE COLOR] (R) . 
grid_aagar->coler2r«ba [ OUTLINE JIOLOR] (6). 
grid_aager->coler - rgb* [OUTLINE COLOR] (8) )j 
( "color _indica a (CLY?H_COLOR J ** - td\n". 

grid aagar -> c« la r_lndica# [GLYPH COLOR ] ) t 
Ceolor_rgb* (CLYPH_C0L0R) ~ - (If %f tf)\n“. 

grid_#og*r->color_rgba [CL Y?R_C0L0RJ [R] . 
grid aagar->color~rgba (GLYPH COLOR] (C). 
grid - aager->color - rgb* (CLTP8~C0L0RJ (8] ); 

I'tanai [GRID TYPE ] [REC FID) “ - td %d\n". 

grid aagar - -> ion*. (CRIB TYPE] (REG) , 
grid aagar -> tanaa [GRID TYPE] ITU)] ) / 

Crone? [SCALAR_TYPE] (RES FLO) - td tdW. 

grid_aagar -> tanaa (SCALAR TYPE] [REG], 
grid - aagar -> tanaa (S calar type) [FLO]); 

Cron at [VECTOR_TYPE| (REC TLdT - td td\n". 

grid aagar -> tanaa[VECTOR TYPE] (REG), 
grid - aagar -> tanaa (VECTOR - TYPE) (FLO) ) ; 

("dlmafcRID TYPE) (I J R) " - (td td td]\n", 

grid aagar -> dim (GRID TYPE] (XI. 
grid~aagar -> dim (CRIO~ TYPE] (J) , 
grid” aagar -> dim [GRID TYPE] [K] ) ; 

Cdtre* (SCALAR_TYPE) ( I J kT - (td td td]\n". 

grid aagar -> dim (SCALAR TYPE] (I). 
grid - aagar -> dim |SCA1AR - TTPEJ I J). 
grid - aagar -> d im ( SCALAR - TYPE ] ( K ) ) ; 

("dim | VECTOR_TYPE 1 1 1 J K] - (td td td]\n-, 

grid aagar -> dim (vector TYPE] (I). 
grid - aagar -> dim [VECTCR~TYFE] ( J) . 
grid - aagar -> dim ( VECTORJTYPE] (K)) ; 

(-rangaa(I) [START END INC COR DIM] - [td td td td td]\n". 
grid_aag*r -> rangaa [ I ] (START ) , 
grid_aager -> rangaa )I] (EHD) . 
grid_aagar -> rangaa 1 1 j ( IRC) . 
grld_aagar -» rangaa [I] (COR) , 
grid_aagar -> rangaa { I j [DIM]) / 

("rangaa | J) (START END IRC COR DIM) - (td td td td td]\n". 
grld_aagar -> rangaa (J ) [START ] . 
grld_aager -> rangaa (J) (EHD) , 
grld_aagar -> rangaa (J ] 1 IRC) . 
g rid_«ogar -> rangaa (J j (COR) . 
grid aagar -> rangea(J) (DQi)> ; 

Crangea(K) (START EHD IHC COR DIM] - (td td td td td)\n", 
gr id_aagar -> rangaa (K) [START ) . 
grid - aagar -> r angaa (K ] (EHD) , 
grld_aeger -> rangaa (K) (IK). 
grld_aagar -> r angaa (S ) (COR] . 
grid - aagar -> rangaa (X) (DIM ] ) t 
("■lnmnlCLIP) (MINI MAXI BOTTOM TOP] - (tf tf tf tf]\n*. 
grid eager -> mimaealCLIF ] [MIHIJ , 
gtid »g.r -> miranor (CLIP) (MAXI) . 
gr id - aagar -> minraa«(CLIP) j BOTTOM ) , 
grid_aag ar -> ninma(CLIP) (TOP)) i 
("ml tuna a (NORM) (MINI MAXI BOTTOM TOP) - (tf tf tf tf)\n*. 
grid aagar -> minmaa [HOW] (MIHI) . 
grid_eager -> m Irene* (NORM ] [MAXI) . 
grid - aagar -> minaa* (NORM 1 (BOTTOM) , 
grid aagar -> minma* (HORM I (TOPI) t 
("field Ida [GRIS I BLASE SCALAR VECTOR) - (td td td td)\n". 
grid aagar -> flald Ida (GRID 10]. 
grid - aagar -> f laid - Ida ( I BLASE ID), 
gr id - aagar -> flald - ida (SCALAR - ! 0) . 


grid_aagar -> fieldld* (VECTORED) ) / 

!" fiald Ida ( I ; START END KID ZOSEJ - (td td td tdj\n", 
gridaagar -> £iald_ida (START_I_NORM_ID) . 
gridaagar -> f la ld~ida [END_I JKMW_ID ] . 
gr ld_a#gar -> £ield_ida (MID - I - |IORM_IDI. 
grid_aagar -> f la ld~ida [ ZONEI _NORM_ID ] ) t 
" fialdid. [ J: START END MID ZONE) - (td td td td]\n". 
grid_aagar -> f iald_ida (3TART_JJJ0(W_ID) . 
grid_aagar -> flald~ida [ END_J_HORM_ID ] . 
grid_aagar -> f ia ld“ida (MID“ j_HORM_ID ] , 
grid aagar -> fiald - ida(ZOSE J NORM ID )) t 
I" fiald ida (R: START END MID ZONE) - (td td td %d]\n", 
grid_aagar -> fiald ida [START K_MORM ID), 
grid aagar -> fiald - ida (EMD K~ NORM ID), 
gridaagar -> fiald - ida(MID - K~NORM - ID). 
grid aagar -> fiald - ida ( ZONE K NORM ID)) » 
l”fiald Ida (CONTOURS ] — - [td)\n*. 

gridaagar -> fiald_id. ( COBTOCRS_I D ) ) j 
“ nora^con tou r a ** _ - td\n*. 


■ (td td td td td) \n" , 


• atatlc void raaat_atata( int raaat_«ct uat ora ) 


Raaata tha contanta of tha grid_aagar attuctuia to tho default 
atata (en^ty) end halta looping. If roaot_actoatora ia 1 then 
tha actuator* will bo raaot to their default atataa . 


Todd Plaaaal 

NASA Arne* Raaoarch Cental 
Starling Software 
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lock_cur_ob)*ct () 
unlock_cuz_object 0 
updutelegendO 
dtUt»_n»inli 0 
•a t_de f a o It _co lor* 0 
copy_colar a () 


declared in this fila 
dafinad in thia fila 
dafinad in thia £ila 
da £ in ad in thia fila 


dafinad in thia fila 
dafinad in thia fila 
dafinad in thia fila 


ACCESS! lam in_nct a .randar_manu_group. raaat_*alactlon 
/* taaat attribute* mans •/ 

ACCESS! (raain_acta .attributaajnanu_group. raaat aalact 
/* taaat options nano •/ 

ACCESS! (main_acta. opt iona_manu_gronp. raaat _aal act ioi 
/* dalata normal* •/ 
dalata_n»rtnala () ; 


dal at «contoa r ■ () / 

/* raaat loop buttons group */ 

ACCESS! (naio_4Ct a .loop_buttona_groop. raaat_salaction*. 0) > 

/* taaat a Ildar battona group •/ 

ACCESS! (mo in_oct* . a 1 idar_battona_group, ra*at_*olact ions, 0); 
/* raaat aurfaea button* group */ 

ACCESS! (inoin_act» . aur fecajtutt ena_group, r*aat_*alact ion*, 0) r 
/* raaat ton* typain group •/ 

ACCESS4 (nain_act*.cona_typain_group. aativalua, 0, 0) ; 

/* raaat alidar group */ 

ACCESSS (nnin_*cta .*1 idar_group, aatfvaluaa. I. alidar_groop_«i 


'_«ct* . alidar group. aatfvaluaa. K. alidar jraup vi 


/• tan* act poir 
/• lot loop Inch 
/* 2nd loop indi 


ACCESS2 i™in_«cti .a lid* regroup, hlda_a*lact_but tons) ; 
ACCESS4 (moin_octa .alidar _group, **t_diract ion, K, 0); 
ACCESS! (maln_oct a .alidar _group. highl lghtalldar . HID) 

/* data info typaout •/ 

claar_typaout (main_octa . dat a_lnfo_typ*out } ; 


/* aactor panel's acala group •/ 
ACCESS! (scolagroup. ra*ot_woluaa, 0) ; 


ACCESS! (main_acta.typ*_inanu_group, ra*at_aalact Iona, 0) » 
/* raaat randar manu •/ 


moin_act a . dr a wo b )act_button -> val - 1.0; 
pnl_£ia*ct (mo inoct a .dr*w_objact_button) ; 


panels.c 


/* clip. norm, and lag and minmaa typain* •/ 

*at_typain_f»al (minmaa acta. clip top typain. 0.0, 
rLQA7_STRINC_rOSMA7 ) ! 

•4t_typain_fval (minmaa act a. clip bet typain. 0.0, 
r LQAT_S7RIMC_roW<A7 ) , 

• at typain foal (oinmt aeta .norm tap typain. 0.0, 
FLQAT_STMBC_roi(MAT) ; 

»at_typain fvol (ndnmea acta. norm bot typain. 0.0, 
rLQA7_STRinC_rORHAT) , 

•at typain foal (minmaa acta. legend max typain. 0 
FLQA?_STRINC_T0ftMAT) i 

•at_typaln fvol (minmaa acta. legend min typain. 0 
FLOA7_3TtUBG^rORMAT) I 

/* clip and narm multi alidara »/ 


eatval ■ 1.0; 

itf <ta -> labal, T LQAT S7 (U S C_F OKMAT . 0.0) ; 


ta -> eatval ■ 0.0; 

* printf (ta -> labal. rLOAI_S7(UBC_rORMAT, 0.0); 
pnl_£iaect (mlnmea_acts -cl ipjnult ialidar) | 

ta “ minnaa_act a .norm_wlt ialidar ; 
ta - ta -» al; 
ta -> eatval » 1.0; 

■ pr lnt f (ta -> labal. FLQAT_STRIHG_FORMAT, 0.0); 
ta * ta -> naat ; 
ta -> eatval - 0.0; 

• printf (ta -> labal. r LQA7_S7tUSC_r OfiMAT. 0.0); 
pnl_f iiaet (mimna«_acta . no rrnjnu It ialidar) ; 

/* raatora dafault minmaa modaa •/ 

mimnoa acta .auto_mimnaa_updata_bntton -> val ■ 1.0; 
pnl_fiaact (minmaa_acta .auto_minmaa_updata button) ; 

miruraa_acta . updato_minmaa_ilidar a_button -> pa 1 - 1.0; 
pnl_f laact (minmaa_acta .gpdata_minmna_ilidar»_button) ; 

minmaa_acta. in»art_olip_taat_botton -> val ■ 0.0; 
pnl_£iaact (minma*_acta . invert _clip_taat_button) ; 

f ia_radio_buttona ( minmaa_act a .mod* buttons, 
OTMSCAUUlJtltKAX HOOES, 
HUL7I_ZOKE_KINKAJ( ) , 


gridaagar -> randar_moda - LINES_1_2; 

gridaagar -> acalefactora I VEC70R_SCALE] - acala group valuaa[0); 

grld_aagar -> acalafactora ( FRAHESCALE] * - acala_groop_veluaa [ 1) j 

grid_aogar -> contour_color_type - SCALARCOLOR; 

grid. agar -> vector_color_type * COWS7COLOR; 

grid_aagar -> vactort iptypa - RO_TIP; 

grid_aagar -> direction - K;~ 

f rid_aagar -> rangaa ( I] [IHC] ■ l; 

grid_aagor *> rangaa (J] (ISC) - 1; 

grid - * agar -> rangaa (X| (IMC] - 1; 

gridaagar -> minmasjnod* a KULTI_ZQHE_MIHKAX; 

for (i - 0; i < HOH_CS_FIELD_I0S; ++1) 

gzld_aagar -> fialdidafi] - -1; 

for (1-0; i < 1; ++1) 
for (j - 0; j < !; ++}) 

gridaagar -> bou ndory_f lag* [ i ) [ j ) - 1; 

grid_aagor -> draw - 1 , 

grid_*ogar -> shaded - OEF AOLT SHAD IHC; 

grid_aagar -> clip^moda - STRAIGHT CLIP; 

g rid* agar -» leopjnoda - loop_mode - LOOP OFT; 

grid_aagar -> loep_dir ~ - LOOP _ FORHARD; 

gzid_soger -» loopaurfaca - MID; - 

grid_aoger -» looprona - SINCLE_EOSE; 

grid_aager -> num_contaura -40; ” 

grid aagar -> raaatt ozone - 1; 

grld_aagar -> ahoa_looping - 1; 

trid_aagar -> auto_mirunaa_updata - 1; 

gzid_aoger -> u pda ta_minmaa ilidara - 1; 


nlock_cur_objact () ; 


*at_dafault_colora () ; 
f ia_eoler_panal 0 ; 
eopy_colora () ; 

/* claar lagand values */ 

updata_lagand (0 .0, 0.0, minmaa_art a . lagandlabala) ; 


updata_fld_doto_ponal () ; 


■ EHD OT raaat_atata — 


’ rainltiallsa the grid aurfaea data structure •/ 
maat ( gridaagar, 0, alraaf (Cr id Surface) ); 


grld_aagar -> ob jaet typa 
grld_*ager -> aucfaca^moda 
gr 1 d_« agar *> type 


- GRID SURFACE; 

- SINGLE SURFACE; 

- GRID TYPE; 
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atatic void aur f#ca_but ton »_fttnc ( int row. int col, int itltt ) 
• PURPOSE: 


Handlaa aattlng tha current aurfaca button aalactiona for 
coemanda 


AUTHORS : 


Todd Plaaaal 

NASA Anai Raaaarch Contar 
Starling Software 


REVISION HISTORY: 


9/40 

12/40 

4/91 

INPUT PARAMETERS: 


co n war tad to button group call-bock 
addod cocrand at off 


int 

Int 

int 


tow aalactad button’ a row 

col aoloctad button’ a column 

atata aalactad button’ a atata (0 or 1) 


OUTPUT PARAMETERS: 


Bona 

FUNCTION RETURN: 


GLOBAL VARIABLES USED: 
PILES USED: 


* NON -STANDARD COOS : 

* CALLED BY : 

* r UNCTIONS CALLED : 

--*/ 

/* aurfaca_buttona_fune — — •/ 

atatic void aurface_buttona_fnnc( int row. int cal. int atata » 
interactive - 1; 

load_camwnd( aurface_buttone_acrlpt_camiiendi 10 J , 

aurfaca~buttona~acript~coamanda (1 + coll > / 

/* ENO Of aurfaco_buttona_£une • / 


panels.c 



/•++ atatic void aat_aur£aca_buttooa_fune( char* acript_c«aoand ) 

* PURPOSE: 

Handlaa aattlng tha currant aorfaca button aalactlaaa (tea 

* a conxnand 

* AUTHORS: 

* Todd Plaaaal 

* NASA Anaa Raaaarch Cantar 

* Starling Softwara 

* REVISION HISTORY: 

* 9/90 

12/90 canvartad to button group call-back 

* 4/91 addad cornua nd atuff 

* INPUT PARAMETERS: 

* char* acr ipt_coaanand aczlpt coinuand or actuator 

* OUTPUT PARAMETERS: 

* Non# 

* FUNCTION RETURN: 


■ GLOBAL VARIABLES USED: 

* extern Cr id_Sur faca* grid* agar/ daclarad in tbla flla 

* TILES USED: 

* Hon a 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* FUNCTIONS CALLED : 

* art am int ccomandinde* I 1 libpang 

* * nt locfc_cuI_object () dafinad in thla fila 

int unlock_cur_object (J dafinad in thia fila 

(• aat_aurfaca_button a_func */ 

itatie void aetaur faca buttona f unc ( char* acrlpt_cortmnd 1 



char peram[32J ; 

in* aalactiona |H»_SURFACE_BURONS| / 

int index/ 

par ae_coomand ( acrlpt_««mnand, *%•-. paraa ); 

if I 1 index - coremnd_index( paraa. aurfaca buttona acript cocmanda. 
NUM SURFAC E_BUTTON3 ♦ 1 ) ) — -1 ) 

rat urn i 

1 


lock_cur_objoet () / 

4rid_aagar -> aurfaca jaoda ■ lndaaf 
if ( 1 Interact lva ) 

I 

mamaaU aalactiona, 0. alcaof aalactiona 1/ 
■ aloctiana!grid_aagar -> aurfacajnodaj - 1 
ACCES34 ( main_acta . aur faca_buttona group. 

aat_aalactiona. aalactiona. 0 ) / 


delete_contoura () / 
unlock_cu t_ob jact () j 

/• ahow tha aalact buttona if boundary aurfacaa node */ 

if ( indaa — BOUNDARY SURTACEN ) 

l 

ACCESS2 ( (aaln_acta .alidar_group, >hov_aelect_buttona )/ 

olao /■ h Ida than •/ 

( 

ACCESS? ( main_acta.alidar_group. hida_aalaet_butt ona )/ 

1 

/• END Of aat_aur f aea_buttona_f ana .•/ 


/•++ atatic void allder_buttona_£uno( int row, int col, int atata 1 


Handlaa aattlng tha currant a Ildar button aalactiona. 


panels;c 


NASA Areas Raaaarch Cantar 
Starling Softwara 


REVISION HISTORY: 


9/90 

12/90 convartad to button group call-back 

INPUT PARAMETERS: 

int row aalactad button' a row 

int col aaloctod button' a coluan 

int atata aalactad button' a atata (0 or 1) 


OUTPUT PARAMETERS: 



FUNCTION RETURN: 


• GLOBAL VARIABLES USED: 

• TILES USED: 

* Nona 

* NOTES: 

« NON-STANDARD COOE : 

• CALLED BY : 

* FUNCTIONS CALLED : 

— •/ 


/* ** allder_buttona_func — — — a/ 

atatic void alidar_buttona_func ( int row, int cal. int atata ) 
intaract lva » 1/ 


® wit ch | col ) 

I 

caaa 0: load coconand ( -SLIDER ACTION la', -RESET- )/ brack; 
caaa 1: load_cocniand ( -SLIDER ACTION la la*. "RESET_ZONE”, 

ON _0R_0rr (atata) )/ 

braak/ 

caaa 2: load coomandi ’SLIDER ACTION la la’. -SHON_LOORIHC-. 

ON CR Orr (atata) ) ; 

braak i 

dafault : intaract lva - 0; braak) 


/*■ 


CUD Or alidar_buttona_func 


■*/ 


Todd Plaaaal 


ORIGINAL PAG£ IS 
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eacanf ( icrlpt_ccuaand. -*•*. coewnnd ), 
ptin_comadl script _comoand. p<ru> ) , 

it I ! row - coomnd lndos I cnnnd. 

loop_buttonn~ecript_lood_co«o#nda, LO< 


LOOP _B LTTTOW3 RO*3) ) — -1 ) 


■•l«ctiona tgr ldaegar -> loop_n*xfes 
1 - loop_butten*_por_row{0) ; 
•«l*ction*|i ♦ grid_aeger -> loop i 
i +- loop_buttone _per_ro-ll); 
••lection* (i ♦ grid_aeger -> loop_i 

ACCESS4 ( ma in oct ■ . 1 oopbut ton l fE< 
••t_*al-ctione. eel ect Iona, 


if ( I col - coanand_lndoa ( par am. 

1 ®*t_ k »tton»_#e*ipt jm t»a_c<*iinon di I ro» 1 , 4 ) ) — -1 ) 


: draw mod* baaad on currant looping at at 
rrid_«og«r -> loopjnodo — LOOP_OfT > 


lock_cor_object () ; 
delote_eontoor# () ; 

ne-_loop_nurfaee - o ld_ loo p_aur face ■ grid_aeger -> loop aurfaco; 


caaa 0: loopjnode * grld_aagar -> loopmode - col, brook; 
caao Is old_loop_ourface - grid aagor -> loop aurfaco; 

nowloop^aorfaco - grid_aagar -> loopaurfoce - col; 

ACCESS 3 ( mnin_ecte.alider_group, highlight alidar. col ); 
brook; 

caao Js grldaager -> looprone - col; broak; 

^ do fault: interactive - 0; return; 

/• If nocoeaary, do lot a tho old aurfaco nornmla and contoura •/ 

if < grid. agar -> aur face_mode — SINGLE SORT ACC tt 
grid. agar -> rone_nor«nla — 0 U 
I ne-_loop_auzface 1- old_loop_.ur face ) 

1 - N0(M_XD_ INDEX! gridaa gar ->di root ion, grid_.eger->loop_.urface ); 
if < grid_aagar -> field_ida|i] l* -X ) 


if ( old_loop_aur faci 
range a |old_loop_i 


object, WJKEDJIO 


l- MID it grid_aoger 
trfaco) * gr i d_«agar • 


if ( na«_loop_aurfoco 1- MID ) 

grld_aager -> prev - rangaa {ne-_loop_a: 

/• radio- tho alidora to indicate tho no- j 

ACCESS5 ( ran in_act a. al idar_group, a at iveloi 

( v ie-,aat_dr a»_«noda ( cu r_o b j act , ALW AY3DRAW) 

updato_doto_info(J ; 


unlock_cur_objact () ; 


• EHD OF aet_loop_buttona_fu 


lifdaf DEBOG 

landif < d * 1 * t * aoxfaca norma la for loop_eur£ace - »d\n”, grldaager -> loop aurfaca); 

S DEAL LOCATE ( grld_aoger -> field lda(H ); 
grid_»ager -> fieTd_id»{l) - -1;~ 


/•if not interactive than ft* tho loop but ton a •/ 
if ( 1 internet iva ) 


Handle, aotting tho currant zona. 


Todd Ploaaal 

NASA Area > Research Canter 
Starling Software 


9/90 

12/90 coneertod to typein group call-back 


.w^tosa; now rone value to eet 


otic void rona_func ( int naw_rono 1 


Interactive ■ 1; 

load_cocmand( "I ONE %d" . ne-rone ); 


panels.c 


Handle, netting the current tone. 


Todd Pleaael 

NASA Ama. Ro.aarch Center 
Sterling Soft-aio 


REVISION HISTORY: 


12/90 converted to typain group call-back 

5/91 converted to acripting 


Char* acr ipt_coRmand .cript i 


OUT POT PARAMETERS: 


GLOBAL VARIABLES BSED: 


astern int aat_fld_data_aoloctlon O libfldpan 

astern void updato_f ld_data_panel () libfldpan 


etatic void iet_tono_funci char* act ipt_conrand ) 


** etatic veld aot_rone_fane ( char* acr ipt.canmnd ) 


ie_coiunand( acr lpt_cocnnand, ' id” . (ne-_rone ); 


/• .elect tho no- grid and update data •/ 
aot_fld_data_ao lection! GRID, 0, na-_* one ) 


>ko tho call-bock function: data_aaloct !) •/ 


OF POOR QUALITY 
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• at *t ic void aet_boundery_*urfacas_func( char* #cr i pt cocraand ) 


Todd 

HAS* Ami Raaaa rch Can tar 
Starling Software 


REVISION HISTORY: 

9/90 

12/90 

4/91 


con »art ad to tattoo group call-hack 
ad dad cocnaad at off 


I SPOT PARAMETERS : 

chor* •cript_cocmand script canroand or actuator 
OUTPUT PARAMETERS: 

FOWCTIOH R£ TORS: 


GLOBAL VARIABLES USED: 

aatarn Gr id_3urf oca* 
FILES OSLO; 

Hon* 

ROTES: 

NOW- STANDARD CODE : 

CALLED BY ; 

FUNCTIONS CALLED : 
int 


daclarod in tbia fil# 


lock_cur_ob}*ct () 
in lock_cur_ob Jact () 


chock da lot a : 


■ 1*0 dafinad la thla {11a 


f* — iot _bo undo ryaurf oca »fanc — 

at at lc void ••t_t*ound*ry_*ur fac*s_func ( char* acrlpt conrand ) 
atatle char* dir_atr (3) • { *1*. - J- , -R- | , 


static char* 

Int 

char 

char 

char 


•lldar_.tr [3} . ( -START-. -END*. -MID* 1/ 
dir, a. off_on, searching/ 
param_dlr_.tr [•) / 
p*ram_*lid*r_*tr [») / 
parom_of f_en_*tr (• j ( 

poraa coemandf act ipt _eoo*nend. -»a ta %*-. 

p*ram_dir_rtr. param_» lid* r _*t r. parcm of f oo at r )/ 

If ( atrca*ecnp( paremoffon atr. -OfT- ) — 0 ) off oo - OFTi 

alao If ( itrcaitcnpl peroaof f_on~.tr . 'OS’ ) — 0 ) off”on - CM; 
alaa ( Interact ivo • 0: return/ ( " - 

for < dir - 0. searching - TRDE/ aoarchlng <s dir < 3; ++dlr » 

if t atrcaaocnpf porara_dir_atr . dir_atr(dlr] > — 0 ) 

for ( a - 0; aaarchlng *« a < If ++a ) 


( 


if 1 itrcoascip ( poram_alidar_.tr, a lidor_.tr l a) ) , 


- 0 ) 


•aarching * FALSE/ 


) 


I 

— dirr --a; 

if < aaarchlng 1 return/ 
interactive * 0/ 
lock_cur_objoct () / 

qrid .agar -> boundaryf lags [dir Ha | - off on/ 


if ( 


interact iva ) 

ACCESS* ( main act a. slider group. aot_Boloct ioni, 
id_aog*r -> taundary_f lags. 0 )/ 


ch*ck_d*l*t *_normn 1 » ( grid_aagar -> direction, grid tegor -> ranges )/ 
dalete_contoors 0 / ~ 

unlock_cur_ob j*ct () / 

* EffD «et_taundary_aurfacea_func •/ 


'+♦ static void r***t_ijk_rang*» ( void ) 

PURPOSE : 

Reset* the IJK rang** aithar to full dim* or pertielly. 


panels.c 


Todd 71«li*l 

NASA Am** R* search Canter 
Starling 3oftM*r* 


* REVISION HISTORY: 

1/90 

> I IP 07 PARAMETERS: 

• OOTPOI PARAMETERS: 

Nona 

' F0NC7I0H RETURN: 

Bono 

► GLOBAL VARIABLES USED: 


' V 0«- STANDARD COOS : 


> FUNCTIONS CALLED : 


lock_cur_ob ject 0 
un lock_cur _ob jact |) 
updat s_dat *_in fo ( ) 


dafinad in thla flla 
defined in thla file 
dafinad in thla flla 


•tatio veld reset 


re**t_i jk_i 

_ijk_rangea ( veld ) 

full_reaet/ 
dir/ 

•tort; 

dim/ 
min/ 

t*c*(20Ji 


/• reset to foil dins? •/ 
/* direction: I. J. X •/ 
/• starting I. J. X •/ 
/• ending I. J, X •/ 

/• dimension: I. J, X •/ 
/• 1 or 0 if dl/a la 0 */ 

/* to check buttons */ 


/• check if this la a foil or partial reset •/ 

ACCESS 3 (m*ln_oct * . *1 idar_butt ona_group, gat _ a* 1 vet ion. . twqp) / 


r*#ot vhen rone changes? */ 


full_r#*et «t*rrp(l]; 
lock_cur_ob Joct () / 

/• loop on direction and rasat each component */ 
for t dir - 0/ dir < 3/ *+dir ) 

I 

/* *ot the dimension of th* rang* •/ 

dim - grid_aag«r -> dims [CRIDJTYPE 1 (dir 1 / 
grid_a«g*r -> rang** (dir) [DIM) - dim/ 

/• if th* dimen* ion is t*io than roro out othor 
if ( dim ■■ 0 ) 

I 

grid_*cg*r -> rang.. [dir] [START) 
grid_*ag*r -> range* [dir ) [END) - end 
grid_aag*r -> rang** [dir ) l INC ] - 1/ 

^ grid_.ag*r -> rang* a [dir ) [COR] - 0/ 

/• alt* if thla la a full r*i*t then do It •/ 

• if ( fuller a set — 1 ) 


grid_aeg«r -> rang** [dir] [START) « .tart - 1/ 

grid_aog*r -> range* [dir ){ END) - and - dim/ 
grid_.ager -> range* (dir )( ISC) * 1/ 
gridaagar -> range* [dir ) [CUR) - R0UND( dim / 2.0 )/ 

if I qrld_*ag*r -> range* [dir ] (CUR) — 0 ) 
grid_**ger -> range* (dir ) (COR) - 1/ 


/* else only change if out -of- hound* ■ 

• l.o 


* only make change* required to hava 

* 1 <» start <“ cur <» and <“ dim and 

* 1 <■ inc <■ dim 

* note: LIMIT_TO|e, min, mas) insures that 

* min <- a <■ man 


•/ 

min > 


MINU, dim)/ 


LINIT_T0( grld_*ag*r -> rang* ■ (dir ][ START) . min. dim )/ 
•tart - grld_**g*r -> range* [dir ) (START) / 

LIMIT_T0( gr ld_*agar -> range* (dir ) (END) . start, dim >/ 
•nd * gridaagar -> ranges (dir ] (END) / 

LINIT_T0( grid_.oger.-> range* (dir ] (CUR) . start, and )/ 
IIMIT_T0_MAX ( gridaagar -> ranges (dir ) [INC] , dim )/ 
LIMIT_T0_MIN < gr ld_*ager -> ranges (dir | (INC) , 1 )/ 


/• update the *Ud*r* •/ 


ACCE3SS ( me in_act» . alid*r_group, 

•at _i values. I, grid_*agar -> ranges (I). 0 )/ 



panelsc 


ACCESS 5 ( tmln_«ct» . «lidar_group, 

litjnlgti, J, grld.agar -> 
ACC ESS 5 ( mqin_ect«..lidor_group, 

K, grid_«ogar -> 


defined 1 a this fila 
declared In thia fila 


/• update data info typoout •/ 
*>pdata_data_info 0 , 


• EHD or ra»at_ijk_rnngn» 


’"id data aalact t int type, in 
FLDDataPtr £ld_datn_ptr ) 


da lat •_noraa la 0 
updat a_dat a_in fo ( ) 
lock_cur_objact ( ) 
unlock_cur_objoct () 


da flood In thin filo 
da flood in thia fila 
da flood in thia fila 
dafinod in thin fila 
dafinad in thia fila 
dafinod in thin fila 
dafinad in thin fila 


Lna in callad from Surfai 


Todd Plannal 

NASA Amnn Rnaoarch Cantor 
Starling So ft mo ra 


typo GRID. SOLUTIOH, SCALAR, VECTOR 

rag_num number of ragintar talactad 

fld_num number of flald .elected 

f ld_data_ptr -> fid data .tructnra 

containing info about tha 
.elected data. Or thin coaid 
bo HULL indicating a raaot 
affocting tha given typo 


void data_naloct ( int typo, int rag non. int fid nun. 

FLDDataPtr fld_dota_ptr ) “ 

int mnt_dalata_nonnaln - Oj /• only if data changod */ 

int n«._*cal.,_fi«id a 0, /• only if data changed */ 

/* 

* chock if tha data in HULL, if no this lndicoton that a 

* .election wen on a flald that 1. no longar available (and 

* tha fid data panel automatically updated ltn typaoat.) but wo nmot 
now call Surfer’ • own rnnat data function and pain type 

*^to indicate that tha ranat pertain, only to thi. typo 

if ( f ld_dat o _ptr — HULL ) 
renot_data( typo >, 


lock_cur_ob jnct 0 ; 

/* other win# a flald i 


twitch on tha type */ 


grid_«agar -> rone. [CRIDTYPE] (FLO) • fld_numj 

ACCES34 ( moinact n . lonetypeingroup. .at ~i value, fid nun. 0 ) / 
/• copy grid data Id into grid nurfece ntructara */ 


panelsc 


grid_.ager -> field Ida (GRID ID) I - 
fld_data_ptr -> f iald_idn (vrT ) 

n»i.t_dalata_normaln "If 
grid_tagar -> flald_lda fCRID_ID] ■ 

fld_data_ptr -> f io ld_ida (VF| , 


/• copy grid iblanklng data id •/ 

if C fld_data_jptr -> attribute. ( IS_IBIAKKE&J ) 

grld_nagar -> fla ld_idn [ IBLAMK 10} - 

f ld_data_ptr -> fieldTd. ( 1ST) , 


/* update none info in grid .urfaca .tract */ 

grid^.agar -> rone. [VECTOR TYPE) [REG] - rag nun; 
grid.ager -> rone. ( VECTOR” TYPE} [FLO] - fld^num; 

/• copy vector data id into grid nurfaco ntructara */ 

if < grld_nagor -> fiald_id. (VECTOR 10) I- 
fld_data_ptr -> f ioTd_idn [ VT ) “ ) 

if ( grid.ager -> type — VECTOR TYPE it 
^ GSES_MORMALS (gr id_.agar ) “ ) 

moot _da lat a_nom.li ■ 1; 


^ grld_nagar -> fiald_ld» [ IBLAHK_ID) - -1; 

if (IKATCH 0 MSI grid_. agar ->dlmn [CRID_TYPE) . fld_doto_ptr->dimn) ) 
«*«.t_dolata narwola ■ 1; 

updata dim. (CRI07YPE , flddat.ptr -> dim.) i 


/• update sene info in grid nurfaco .tract •/ 


grld_.agar -> fialdid. (VECTOR_ID) - 
fld_data _ptr->fiald_idn [VTJ; 


/• update the dimn */ 

if ( 1 MATCH _0 IMS (gr ld_nag«r->dim> [VECTOR TYPE ) . f ldjd«t«_ptr->dlm) ] 

if ( grid.ager -> type — VECTOR TYPE 41 
( USESMORMALS <g r id.agar > " ) 

“unt jdeletejjonml. - 1; 


updated!*. (VECTOR JTYPE. fld_dota_ptr -> dime); 


grid_na«or -> fiald_idn [ SCALAR 10) I- 
fld_data_ptr -> f lald_lda [3F| “ ) 

naw.calar_field - 1/ 
grid_tagar”-> fiald_id« [SCALAR ID] - 
fld_deta_ptc->field Ida (SF) ; 


/• if in auto update mode than ranat tha icnlnr minims •/ 
if ( gr Manager -> type — VECTORTYPE ) 

if ( minmn*_nctn .entej»iinme*_jjpdata_button -> val — 1.0 ) 
ro.otjnimmsf "RESET_M IMtAX LECCHD* ) t 


if ( IMATCTJjaO (gr (d_»agar->d im. [SCALAR_TYPE) . f ld_data_pt r->dim.) ) 
updata_dim.(SCAUUl_TYPE. fld dat. ptr -> dimn), 


/* if nendnd, dnlntn nny old normal. 


i data if it allot a */ 


ranat jnlnmas( 'RESCTJUHXM LECEHD* ), 


updata_act uetern_mode ■ 0, 
da lata_nezim 1 a ( ) 7 
da lat .“con tour. () , 
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/* update the contour data if naad be */ 

if ( grld_sager -> render_a»de " CO0TOUR_LIHES ) delete_oontour a () / 
/* update the data info typeoot •/ 
updata_data_infa (I / 
unlock_cur_ob ject () ; 

\ 

/* - mo or deta^select •/ 


panels.c : ■ 

• NOTES! 

• NOK-S7ANDARD COOE : 

• CALLED BY : 



FUNCTIONS CALLED 

extern void 

axtarn void 

•it»rn v«ld 

void 

int 

int 


cleartypeout () 
set_typeout_fvel I) 
up dot e_f ld_dxte_penal () 
da lat e_no rmo 1 • I) 
lock_cur_object O 
unlock_cur_ob ject () 


llbpenu 
1 ibpenu 
Ubfldpen 

defined in thia flla 
daflnad in thia fila 
dafinad in thia flla 


/* raaat_data — •/ 

static void raaat data! int typo ) 

< 

Actuator * ta; /• tan* act pointer •/ 


/*++ atatlc void raaat_data ( int typo ) 

* PURPOSE : 

• Raiata tha zone dota of tho indicated typo 

* in tha grld_»eger structure to tha default atata (empty) . 

• AUTHORS: 


Todd Plaaaal 

NASA Area* Research Canter 
Sterling Soft -ora 


REVISION HISTORY: 


6/M 

INPUT PARAMETERS: 

int typo GRID, SCALAR. VECTOR 

OUTPUT PARAMETERS: 

rUNCTION RETURN: 


If 


>; 

o> > 


GLOBAL VARIABLES USED: 


extern Crld_Sur face* 
axtarn Hain_Acta 
extern Minmnx_Acta 


me in_oct » 
minmnx_ecta 


thia 


declared in thia 
thia fila 


fila 


FILES USED: 

Nona 


/* raaat tana data: clear appropriate registers and flelde: */ 

if ( type GRID ) 

\ 

/• delate normal* */ 
da let an or mo 1 1 () ; 

/• delate contour a */ 
dalata_contoura () / 

/• raaat tone typein group */ 

ACCESS4 ( mo in_oet a . zone_typein_group, set_ivalue. 0. 0 ) / 

/• raaat alidar group •/ 

ACCESSS (mo in_oct a . el ldar_group , set_fvaluea, I, *lider_group_value* ( I). 0 
ACCESSS (mo in_oct a . elldargroup, aet_f values. J, allder_group_valuea ( J) , 0 
ACCESS5 (mnin_octa • alldor_gr oup , aet_fveluea. R. slider_group_veluea (K) . 0 
ACCESS4 (m in_octa . al idor_gr oup , aet_eelectiona. alidor_group aalactlona. 


/* data info typeout */ 

claar_t ypeout (rm i nod * . dot e_i n£o_t ypaout ) ; 

/* rainltialiro port of tho grid aurfaca data structure */ 
lock cur ob jict () ; 


grid eager -> dime [GRIO TYPE] (I) - 0; 

grid^toger -> dims (CRI0 - TY7E) [ J] - 0; 

grid_aogar -> dima (CRI0~TYP£) t K ) - Of 

grld_tagar -> ran gee (I ] [START] - 0; 

grid_aagar -> range* j I) (END) ■ 0/ 



grid__aaga* -> rangoa (II) INC] ■ If 

grid'aagar -> ranges [I] (CUR) - Of 

gr id_aegez -> rangoa [I] (DIM) * Of 

grid_aagaz - > rangoa (J ) (START ) « 0; 

grid_eeger -> rangoa (J) (END) * Of 

grid_eager -> rangoa (J) (INC] “ If 

grld_aeger -> rangoa (J) (CUR| ■ Of 

grid_aagor -> ranges (J) (DIM) ■ Of 

grid_aagar -> rangoa (R ) (START ) - Of 

grid_aager -> rangoa (K) (END) ■ Of 

grid_sagez -> rangoa (K) (INC) ■ If 

g r id_sag er -> rangoa |K] (CUR) • Of 

grid'aager -> rangoa (K) [D IM) - Of 

gr id~aagaz -> field Ida [GRIO ID) a -If 

grid_aager -> f ield”id» { I BLANK ID) - -If 


unlock_cux_object () / 

) 

alaa if ( type — SCALAR ) 

I 

/• delate cent our a •/ 


delete_coatoure <> / 


/* rainltialiro part of tha grid aurfaoa data structure */ 


lock_cur_ob ject I) f 


grid* agar 

grid_oager 
grid_aagar 
grid* agar 
grid_seger 
grld_aegex 
gr ld_aagor 
grid_*ogor 
grid_togor 
grid~*agor 
grid_eeger 
gzid_sagar 
grid_aag or 
grldaagor 


-> tone a (SCALAR TYPE) (REG) 
-> rones (SCAOuTtyPE) (FLO) 
-> dims (SCALAR TYPE) (II 
-> dims (SCALA r'tYPE) ( J) 

-> dime (SCALAR_TYPE) (K) 

-> alnmax (CLIP) (MINI) 

-> minmaxtCLIP) (KAXI) 

-> minmax (CLIP) (BOTTOM) 

-> minmaxtCLIP) (TOP) 

-> minmax (NORM ) (KIRI) 

-> minmax [NORM) (MAXI) 

-> minmax(NOni) [BOTTOM) 

-> minmax [NORM ] (TOP) 

-> fiald_ldi (SCALAR ID] 


Of 

Of 

Of 

Of 

Of 

- 0 . 0 ; 

- 0 . 0 / 

0 . 0 } 

0 . 0 / 

- 0 . 0 / 
- 0.0/ 

0 . 0 / 

0 . 0 / 

- 1 / 


/• update and redrew tha sliders */ 


updatajsinmax_alidara (frldaagar 
u pdat e_minma x_a 1 i d or a (grid_aagar 
updat a_rainma x”s 1 i dar s ( gr 1 d_aagar 


-> minmax. LEGEND) / 
-> minmax, CLIP) / 

-> minmax. NORN) / 


unlock cur ob ject O f 

) 

alas if ( typo -- VECTOR ) 

l 

lock_cur_object () / 

/• if vector shaded surface deallocate any normals data •/ 


if ( grid *ager->type «■ VECTOR U USES NORMALS! grid eager ) ) 

) 

delete normals () / 

) 


/• ro initislixo port of the grid surface data structure •/ 


panels.c 



grid.agar -> xonas ( VECTOR_TYPE ) (REG) 
grid_aager -> zone* ( VECTOR_TYPE) (FLD1 
grid_*agar -> dima (VECTOR_T YPE) ( I] 
grid_eeg*r -> dim. [VECTOR_TrPE](JJ 
grid_aagar -> dim* (VECTOR_TTPE ) (R) 
gr id_aagar -> f la ld_lda ( VECTOR_ID) 

unlock_cur_ob ject ()/ 


END or r*eat_deta ----- 



- 0/ 

- 0/ 

- 0, 

- 0/ 

- Of 

- -1} 


/*++ static void voctor_acalo ( int index, float M*_nlin ) 

• PURPOSE: 

• Seta tho vector or frame scale value to thia new value. 

• AUTHORS: 

• Todd Ploaaol 

• NASA Amos Raaoarch Center 

• Starling Software 

• 

• REVISION HISTORY: 

• ll/*0 

• 12/tO converted to scale group call-back 

• INPUT PARAMETERS: 

• int index index of value changed 

• float nev_velue now value 

• OUTPUT PARAMETERS: • 

• Nona 

• FUNCTION RETURN: 

• Nona 

• GLOBAL VARIABLES USED: 


Nona 

NOTES : 

NON-STANDARD COOE : 



• CALLED BY : 

• FUNCTICBS CALLED : 

--*/ 


' * - — — — mctoracalo 

-t«tie void mctor_acalo| int Indaa. float navvaloa ) 
intaractive - 1; 

load_coainaad< *cala_group_acr ipt_eoninand* (indaa J , 


./ 


); 


Of met or^acal • 


•/ 


** atatic void aot_mctor_acalo < char* acript_coemand ) 

PURPOSE : 

Sat* tha motor ox frome *calo valuo to thi* naw valua. 

AUTHORS: 

Todd Plaaaal 

NASA Am* s Roaaarch Cantor 
Starling So ft war a 

REVISION HISTORY: 

11/90 

12/90 con v art ad to acala group call-back 
S/91 convartad to icriptlng 

I SPOT PARAMETERS: 

char* script_conanand acript cotttnand or actuator 
OUTPUT PARAMETERS: 


* NOR-ST ABOARD COOE : 

* CALLED BY : 

* FUNCTIONS CALLED : 

* int lock_cur_objaet(> dafinad la thl* fil« 

* lBt unlock_cur_objact () dafinad In thl* fll* 

— */ 


aat_vactor_scala 

at at ic mid a*t_mct or_*ca la ( char* acriptcocmnnd ) 

flvot now valua; 

Int indaa/ 

chox conmand i 32J | 


aacanf ( acr ipt_coc*nond, Ml', coimond ); 
paraa_comnand( ■cript_eo«rand. "tf*. tnaw valna )/ 


if ( ( indaa - cocoon nd_i a dan ( conrand. 

( •cal*_grOQp_acript_cocmond. . SCALE_CROCP_HUM_VALUES ) ) — 

intaractiva * 0} 


lock_cur_ob joct () ; 


--*/ 


-1 ) 


gridaogar -> *cal*_fact or* [ indaa) » now valoa; 
if I 1 interact im ) 

ACCESS! ( *cal*_group. a at valuaa. grid aagax ~» acala factor*. 0) ; 
interact im - 0/ ~ - 

anlock_cur_ob joct () ; 

- END OT aat_voctor acala __ _• / 


FUNCTION RETURN : 

Nona 

GLOBAL VARIABLES USED: 

•atom Cr id_Sur faea* grld_aagar 

TILES OS ED: 


ROTES: 


kafinad in thia file 


itatlc void •*t_minmoM_f unc ( char* acr lpt_conrand ) 
' PURPOSE: 


Seta tha clip and norm top and bottom valuaa te tha 
valuaa entered in tha typolna. 







Todd Plaaaal 

NASA Ami Roaoarch Cantor 
Starling Seftmra 

REVISION HISTORY: 

4/»9 

INPUT PARAMETERS: 

char* script_command actuator / conmand 

OUTPUT PARAMETERS: 

Nona 

F UNCTION RETURN: 


GLOBAL VARIABLES USED: 

oatarn Ninmaa_Acta minmoa_octa thia file 

a atom Cr ld_Sur face* grid_aagar defined in thia file 

TILES USED: 


ROTES: 


Requires that math .h ba included for otofl) 
NOR- STANDARD COOE : 

CALLED BY : 

FUNCTIONS CALLED : 


mid 

int 

int 


updeto_minmna_aUdere 0 
lock_cur_objoct () 
unlock_cur_ob Joct () 


dafinad in thia file 
dafinad in thia file 
dafinad in thia file 


-*/ 


— —————— —— ——— aat_mlnmaa_func * j 

itic mid aat_aiinmoa_func I char* acr ipt_coomond ) 


char* 

float 

int 

int 

Actuator* 

Actuator* 

Actuator* 

float 

char* 

char* 

char 


minmaal 2 ] » 
clip_or_norm» 

lagand « 0; 
a; 

al# 

all 

min, man; 
minval; 
mo aval; 
modatlBl; 


/* -> typeln string •/ 
/* antarad ctinmna vain# •/ 
/* CLIP or NORM typain »/ 
/• 1 if act la lagand */ 


panels, c 


if (ia_act ( script _ccasnand) ) 

a « (Actuator*) aeriptjeontnond; 

If (atremp (a -> g. CLIP_B0T^ID) •- 0 )| 

^ at renp (a -> u. CLIP~T0P~ID) — 0 ) 

minval - PNL_ACCESS (Type in, minma_acta .cllp_bot _typein. atr) ; 
raaval ” PNL_ACC£SS (Typo in. mi rum a acts. clip top typoln. atr); 
lood_conimnd(*MIIWAX «• tf tf*. "CLIP*. atofTminml). 
j atof (maaval)); 

olaa if (atremp (a->u, N0RMJKTT ID) — 0 I I 

atremp (a->u. N0RM~T0P~ID) — 0 ) 

minval ■ PSL_ACCE S3 (Typo in, minmaa_act a . norm_bot_typain. atr); 

’ PNL_ACCESS (Typoln, mi tuna* acta. norm top typoln. atr); 
load_conrnand ( "HIKMAX ta %f *f*. "80«X" , atofTminml). 

atof (maava 1) ) ; 


alta if (atrcn^(a -> 
■trerp (a -> 


u. LECEND_H IS_ ID) — 0 | | 
u, LECEKD_MAX~ID) — 0 


minval • PNL_ ACCESS (Type in. mi nma a acta.logond min typoln. atr); 
maaval - PNL_ ACCESS (Typo in. minmaa acta. legend _ maa“typain, atr); 
lood_comnand ( "HIKMAX ta tf tf" , "LECEND* , atofTminml) . 

atof (maaval)); 


) 

) 

p ar*a_con*nand(*cript_eoc*nand. *%• tf If-, modo. imin, traa) ; 
if (itrcaaocn»(inoda. -CLIP') — 0) 


cl i p_or _nonn - CLIP; 

al - mi nma a_act a . c 1 i P_bot_t ypo in / 

a2 - mi nma a_act a . cl i P_top_t ypo In | 

slao if (strcasocmpOnodo. -NORM*) — 0 ) 

I 

cHp_or_nona - NORM; 

al - minmaa_acta.norm_hot typoln; 

a2 - minma a_acta.norm~top~t ypo in; 

olao if (at rcaa oemp (modo. 'LECEND') — 0) 

lagand a 1; 

al * minmaa_acta . leg end_min_ty pain; 
a 2 ■ miiunaa_acta . legend~maa_typefn; 


/• storo tho float equivalent in mini 


mlnmai(0) - min; 

ninnai(l) « moa; 


T5TOGI F«t PAGE IS 
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panelsic 


char* *cr ipt_comnand 


'• lf («trenp(a -> o. SUBSE7_MIN1UU<_I0) — 0) 
load_cor*nand(-MIKKAX_MOOE «ZO«:_SOBsrr-> ; 


’(• -> o. SORTACE_MI»tAX_ID) — 
dl'MINNAXHOOE *.*, 'SORT ACE’) , 


i* if (atrcmpla -> o. S0RTACE_SUBSET_HI»1AX_ID) — 0) 
load_coninnnd(*HietMM_HOOE *a«, -SORTACE_SCMBT’) t 


>a_con*nnnd(acript_co«ininnd. nod.}; 


lock_cur_ob ject <) 
unlockcurob jeot () 


defined In this file 
defined in this file 
defined in thla file 


if ( itrncsieof { acrlpt_ceftmend, ’Airro_KINMAX". 11 > — 0) 

gridaager -> «uto_minmaa_ update - (inti OB OROTT VA1< mode 1/ 
if ( grld iagtr -> outomi mne»_updot e — 1 f 

if ( gridaager -> field ids [SCALAR ID] I ■ -1 > 
reaetminmnaC » RESETJUWUUC LEGEND’ )/ 

if ( I interactive ) 

l 

minmaaacta ,auto_rainma»_update_batton -> val » 0N_0R OFF VALIvel); 

P n l_£i*«ct (minma*_act ■ .auto_minn«i*_upd«te_button) 7 ~ 


>lae if (it r nee teen*! icr ipt_c«tmond, -UFDATEJIINKAX*. 1J ) — 0) 

9 r id_* age r -> updatn_raininu*_il idere ■ (int) OH OR OTT VAL ( mode ) ; 
if I 1 interactive > 

I 

minmo«_ncta .updat e_minmn«_i lidera_bott on -> »«1 - OH_OR Ofr VAX (val) / 

pnl_fi«act |minm>_acta ,updete_ininine*_elidere_button)7 ~ ~ 


load_coramand CAOTO KINMAX *i' , 0H_0R^0Tr (a -> val))/ 
elae if (atraqpU -> a. OF DAT E_MHSLIDERS_ID) »» 0) 

load cocrraend (*OPDATE_MI»iAX *•'. OB OR OfT (a -> val) ) ; 
elae lf latxcmpU -> u, MUL7I_Z0«E_MINMAX_ID) — 0) 
l®ed_coo«nand I'HIMAX^MODE li" , 'HULTI^IOME") ; 
elae if (ttrcnp (a -> o. SIHCLE_ZOHE_MIHMAX_ID) — 0) 
lood cocrrnond CmatAX_M0OE *a" , ■SIHOLE_ZO«E”) ; 


elae if (at rcaaeonp (mode, 'MULTI ZONE’) — 0) 

I 

grld_aager -> mlrmoi^rode - NULTI_ZONE HIHMAX; 
Eeaet_minma*( "RE3ET_M INMAX LEGEND’ ) ;~ 
elip_and_norm( TRUE )» 

^ if ( l Interactive > f i«_minmo»_buttone - 1 # 

if (at rcaaeonp (mode, ’S I»ClE_ZOHE") ■« 0) 

gridaager -> minmnamode - SINCLt_ZOHE_MINMAX; 
Eeaet_minma*( “ RES ET_M INMAX LEGEND' )/ ~ 
clip_and_norm( TRUE }; 

if ( I interactive ) fia mlrunaa buttona » 1; 

] 

elae if (at real a emp (mode, "ZONE_SUBSn ') mm 0) 
grid_aager -> minmaamode - SUBSETJdWAX; 


p (mode, 'SORT ACE") — 0) 


NASA Arne a Reaearch Canter 
Sterling Software 


CLOBAL VARIABLES USED: 


lock_cur_ob ject () j 

if ( atate — FALSE ) /• TALSE ao ditable and hide the actuator. •/ ' 

/• Reaat « hide clip taat button (to prevent 100* clipping) •/ 
grid anger -> invert clip taat - TALSEt 



mins*c_acta .clip_mlti slider -> selectable • 

rains* a_ect » . norm mq It 1 si idsr -> selectable « 

nlimii^ict ■ . clip_bot_t ypa in -> selectable « 

Bina*B_acta-normJbot_typein -> selectable • 

nlnni _acts . leg end_adn_ty pairs -> selectable • 

mimna «_«ct » . r •« et_clip_bu t ton -> selectable • 

mlna*B_acts.reaet_norm_batton -> a« lectable • 

mlns*a_acte . reeet_legend_bntt on -> selectable * 

far (1-0/ 1 < BOH PALETTETYFES; ++i ) 

I 

If ( minn»*_«ota . pelattss [NORf ) (1) ) 

minrans_act a . pa 1st t as (NORM) (1 ) -> aalactabla * 
Binna_acta.palattaalCX.IPHi) -> selectable- 


i n lock_c ur_ob Jact () / 


t_acta.palattaa[B0lwnil ), 
•• -pe let tee (CLIP) Jl) ) , 


> Of cllp_and_nerm — — 


BiRR*a_ect s . invort _c 1 i p_t eet_but ton -> aalactabla - 1/ 

/* Shaw tba clipping and noraaliution actuators */ 

minraaB_acta.clip_lab*l -> aalactabla - 1; 

rninit*a_act a . nora_lobal -> aalactabla - 1/ 

min™»_«ct » . cl ip_t ap_t ypa in -> aalactabla - 1/ 

mlnni_acta . norm_t op_t ypa in -> aalactabla - 1 / 

mins*a_acts. legend_raoa_typeln -> aalactabla - 1 / 

minma«_act a . cli p_snu It i al idar -> aalactabla - 1; 

mlftif*i~acta .normjnultlalidar -> aalactabla - 1; 

mins* i_acta .cli p_bot_t ypa in -> aalactabla - 1; 

minmaa_ects -norm_b«t_typein -> aalactabla - 1; 

minaaa_acta.legand_min_typein -> aalactabla * 1/ 

minifna_acta.reaet_clip_btttten -> aalactabla - 1; 

mi/m*B_act a. raa*t_narm_button -> aalactabla - 1/ 

mlnaea_acte . reset_legend_button -> aalactabla - 1/ 

for ( i - 0; i < BCM P ALE rre rrp C3 / ++i ) 

if ( mins* a_act» .palettes [HOKM] [1 ) ) 

mi&n*a_acta . palettes {NOM )(!)-> aalactabla - 1 / 
minmi_»ct a .palattaa [CLIP] (i) -> aalactabla - 1/ 


,_fiaact( (nlnnaa_acta . lneert_clip_test_button )/ 
L_fiaaot( mlnnaa_acta.clip_labal 7/ ” 

L_fiaaot I ainta*a_acta ■ narn_laba 1 )/ 

L_f i aact ( mitma_act a . cl ip_t op_t ypa in ) / 
._fiaact( BinMi_acta .nocm_top~typein >/ 

_f iaact ( Binmea_acts . legend_maa_typein ); 

_f laact ( rairoaaa~acta .clip maltislldar )/ 

_f iaact ( minmasacts .nermjaultlsllder )/ 

_f iaact ( nlnmajeta .clip~bot_typein )/ 

_f laact ( minmaw'acta ,norra~bot~t ypa in )/ 

_f iaact ( mitmaitcti ,l« 9 «nd_ndntyp*in )/ 

_f laact ( aitunaa_acts .r*a*t_clip~bnttan ); 

_f laact ( ninmaa_acta . reset ~norra_but ton )/ 

f iaact ( minaa*_act* .reeet~legend_button >/ 

( 1 - 0/ i < BW_PALBTTE TYPES/ **i ) 


acta . palatta a | PORM) [i] ) 


► atatic int copy_normala ( void ) 


Allocate! a naw eat af polygon norcala dati 
if naadad. and copiaa tha ealetlng data Int 


Todd Plalaal 

NASA Ames Raeoarch Cantor 
Starling Soft ware 


1 if successful also 0 


(tarn Crid_Sur face* grid_esgar; 


3 ALLOCATED mcro 

lock_cor_ob jact 0 
un la ck_cor _ob j act () 


panels;c 


if ( ( naw data - (float*) ATTACH! i 

I 

Error ("Could not attach to now r 
DETACH ( old data )/ 

SO EAL LOCATE! naw_id )/ 
on lock_cur_ob jact 0 / 


/* old normla id 
/* -> old normals data 
/* naw normal* id 
/* -> now normals data 
/* I/J/K 

/* START /E HD /MID/ ZONE 
/* indaa of id 
/• -> IJK d inns ions 
/* norm siaa (in bytas) 


mamepy( naw data, old data, aica )/ 
DETACH! old_dnta )/ 

DETACH! n*w~data )/ 

grid_sagar -> flold_lds(i| - now_id; 


llfdaf 0EB0C 

print f( ’debug: copying nomla\n") / 
land if 


• END Of copy_norma la - 


dims - i (gr id_sagar -> dims (CRID_TYPE ) (0)) / 
far 1 dir - 0/ dir < 3/ e+dir ) 


for ( typo - 0/ typo < «/ -t-Kypa ) 


casa I i slaa •- dims(K) * dims(J)/ break] 
casa Jt sica •- dlms[K] * dims(l)/ brsakj 
caea K: aiaa •- dims(J] • dims (I)/ break] 
default : brook/ 


if ( ! old_id - gzld_aeger *> fiold_ida(l) ) 


! float*) ATTACH! old_id ) ) — NOLL ) 


Error ('Could not attach to aaistlng n 
unlock_cur_ob jact 0 / 
return 0/ 


if I I naw id - SALLOCATEi sica ) ) — -1 ) 

I 

Error ("Could not allocate now normals datal")/ 
DETACH! old_data )/ 
unlock cur object 0 / 


itatic void delete_nezmnls { void ) 


Deallocates the polygon normals dots 


Todd Plossol 

NASA Amos Research Contar 
Starling Software 



GLOBAL VARIABLES USED: 


i Gzid_Surfaea* gr id_*agai 


daclarad in thi* fil 


updeta_actuator*_modaf daclarad in this fil 


/* I/J/K 

/* START /END /MID/ ZONE 
/* indaa »f id 


lifdaf DEBUG 

printf Pdabug: dalatlng normal* \n" I / 
land if 

lock_cur_obJact () / 

/* daallocata existing normal* data and *at id* to -1 •/ 


for ( dir - 0* dir < 3/ ++dir ) 

I 

for ( typo <* Of typo < « 


i - BORM_ID_ INDEX ( dir. typo If 

if ( grid_aagar -> fi*ld_id*(i] I- -1 ) 


ml* data *111 ba g ana rat ad by the drawing rout In**) •/ 


lalata_aoraml*( int now dir. 


/• IJK dir act ion •/ 

/* START/END/M ID/ ZONE •/ 

/• START/CKD/MID •/ 

/• o*a zona noralaT 
/* dalata thorn? 

/* loop_*nrfae* indaa 
/* count surface* dr*' 

/* indaa an normal* 1 
l* boundary turf draw 
/• IJK dir act ion 
/• START /EKD/M ID/ SOME 


fdaf DEBUG 

intf ("debug: chock delating nozmal*\n*l / 


rona_normal* ■ grid_*aqar -> zona_normsl*f 

laoR_*urf*ca ■ grid_«eg#r -> loop^aur foe*/ 

old_dir ■ qrid^aager -> direction/ 

old_range - S lgrTd_.ager -> rang*. (old_dir J |0]| f 


( grid_*a*ar -> aurfaca rode ) 


cur - loopaurfaca — MIO 7 CUR j loop_*ur faca; 
changad * old_ran«*Icur| l» nav_range* (old_dir) (< 

for ( dir - 0/ dir < 3i ♦•♦dir ) 

\ 

i - B0RM_I D_IND£X ( dir. ZONE If 

if f grid aagar -> flald_ida{ll 1“ -1 ) 

l 

lifdaf DEBUG 

print f (‘debug: dalating normal* for aurfaca dir * «d. ZOBEVn". dir }j 


for < dir - 0/ dir < 3/ +tdir ) 








* AUTHORS: 


* Todd PlilHl 

* NASA An»i RtiMreh Cantor 

* Storl inf Soft -arn 

* REVISION BISTORT: 

* 1 l/M 

* INPUT PARAMETERS: 


* OUTPUT PARAMETERS: 

* rUBC TIOH RETURN: 

* int 1 If auccoaaful alas 0 

* GLOBAL VARIABLES USED : 

* ««t«R Crid^Surface* grid_aager; declared in thi* fila 

* FILES USED: 


• NOTES: 

• NOS- STANDARD CODE : 


* FUNCTIONS CALLED ; 

* 8 ALLOCATE 0 macro 

* int lock_cur_ob jact <) 

* int unlock^cur_object (} 


defined in thi. filo 
defined in thi. filo 


/*- 


copy_contour. 


•*/ 


atat io int copy contoori ( vo Id ) 

( 

int oldid; 

float* old data: 

int new“id; 

float* naw_data; 

int a lea; 


/• old contour. Id •/ 
/* -> old contour* data •/ 
/* nan contour, id */ 
/* -> now contour, data «/ 
/* liM (in byte.) •/ 


fifd.f DEBUG 

printf ('debug: copying contourin') ; 
land if 


lock_cur_ob joct ( ) / 

• lto “ grid_.agar -> num_eon_point» • 4 • .iroof ( float): 



11/M 


OUTPUT PARAMETERS: 


FUNCTION RETURN: 


GLOBAL VARIABLES USED: 

a .tarn Cr id_Surfoca* grld_.oger; daclarad in thi. flla 

, * tMn lnt updata_octu«tor._moda> daclarad in thi. fila 

FILES USED: 

NOTES: 


* NON-STANDARD CODE : 

* CALLED BT : 

* FUNCTIONS CALLED : 

* 8DEAL LOCATE ( ) macro 

1 lnt lock_cur_ebjoct() dafinad in thia fila 

* int unloek_cur_objact 0 dafinad in thi. fila 

— */ 


!* — — da lata_contour. 

atatic void dalata^contour. ( void I 

if ( npdato_actuatorajH>do -• 1 ) rot urn; 

•ifdof DEBUG 

prlntf ('debug: da lot log contourin’); 
f and if 

lock_cur_eb jact () ; 

/• daallocata a.l.tln« contour, data and .at Ida to -1 */ 

it ( grld_.ager -> f ield_id. |CONIOURS_ID) i- -1 ) 

S DEALLOCATE (gr id_aafar->fiold i da (COST OCRS IDJ); 

^ grid.eger -> fiald_ida{CONTOURS_ID] - -l/~ 

unlock_cur_object () j 

^ /• (now contour, data will ba ganaratad by tha drawing routinea) •/ 

/• END OF da lata_contour« — «... •/ 


panels. c 


if ( ( old_id - gr ld_aagar -> fieldtd* CCOHTOORSIDJ ) l» -1 ) 

if ( ( olddata - (float*) ATTACH ( old_id ) ) — NULL ) 

Error (’Could not attach to o.lttlng contour, dotal'); 
unlock_cur_ob joct () ; 
return 0; _ 


if ( ( naw^id - SAL LOCATE ( aixa ) > — 


1 ) 


Error ('Could not allocata now contour, data!'); 
DETACH ( olddata >/ 
unlock_cur_ob jact 0 ; 
return 0; 


if ( ( nawdata - (float*) ATTACH ( nawld ) ) — HULL ) 

Error ('Could not attach to now contour# data!*); 
DETACH ( old data ); 

SDEAL LOCATE 7 new_id ) ; 
unlock_cur_ob joct () ; 
return 0; ~ 


mamcpy( new_dato, old data, aixa ); 

DETACH ( old'dato ); “ 

DETACH ( naw~data ); 

grid_.oger -> fiald_ida [CONTOUR3_IDl * new_id; 


unlock_cu r _ob jact () ; 
return 1; 


END OF copy_contoura 



■tat ic void dolota_contour. ( void ) 
PURPOSE: 

Daallocata. tha contour, data. 


Todd Pla.aol 

NASA Amo. Ra.oarch Contor 
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REVISION HIS70RY: 


++ .tatic void firat_object_: 
PURPOSE: 


b * ck th * ®f th. firat ovailabla objoct or an anpty 

atring if tharo aro non. ovailabla. 


Todd Ploaaol 

NASA Ami Ra.oarch Cantor 
Starling Software 



GLOBAL VARIABLES USED: 

FILES USED: 

Nona 

NOTES: . 

NON-STANDARD CODE : 

CALLED BY : 

void init_panel. () 

FUNCTIONS CALLED : 


defined In thia filo 


■ firat_objoct_n« 


•tatic void f ir»t_ob joct_n«o» ( char* name ) 

atatic char buf (OBJECT_BUT_SIEEJ ; /• objoct name Hating */ 


■ORIGINAL PAGE IS 
OF POOR QUALITY 



panels^;: 


/* index into buf/neam */ 


DPRJ NT ( “ inside first_ob ject_nmm (Is) :\n'. nasa) ; 

«mmset< buf. 0. iit«o( buf ), 

DFRIBT ( * buf - *%s'\n*. buf)j 

/• ge t an updated listing inta tha typeout buff at */ 

•print f (cotnaond. ■LIST_06JECTS Id*. CRID_StJRTACE) / 
•end_hub_coemand (comma d) ; 
w>duTa_taad_««ck (buf . slreof (buf) ) ; 

DPRINTC back from modu le_reed_aock ( with but - buf)/ 

/• a at root tha name of tha fir*t object •/ 


ahila (bnf(i) l» '\0* 4i buf[i) I- • \n' «• i < OBJECT_KAME_L ENCT H - 1) 


- CRD Or fir st_ob jact _nome ■ 


GLOBAL VARIABLES OSEO: 


NOB -ST ABOARD CODE 


lnit_pano la ( ) 
naw_objoct () 


FUNCTIONS CALLED 


• ■tarn void cleor_t ypeout 0 

• atarn iat •ot alact ion_nura() 

• ztarn void •• 1 act object () 


declared in tbia file 


defined in tht» file 
defined in this file 


defined in thia file 


u pda t e_ob jact _t ypeout ■ 


wid u pda t e_ob jact _t ypa out ( void ) 


buf.ire, 

bof7 

corano nd [ 32 1 J 


/* paint* into typeout buf 


■ void updata_ob jact _t ypeout ( void ) 


Opdate* tha abject typeout listing. 


Forgo* J. Merritt 

NASA Amos Research Cental 

Sterling Software 


3/90 

11/90 Todd Plessel 

addad mutually recur* ive call end 4 


clear^typoout (main_act ■ .ob ject_t ypeout > / 

buf * PHL_ACCESS (Typeout . mo in_oct* .object _t ypeout , buf}; 
biif_*ire ■ PKL_ACC ESS (Typeout , mailt_act* .object typeout. size) j 

/* en updated listing into the typeout buffer */ 


modula_road_*ock (buf. buf_*ize>» 

/* try to reaelect the current object •/ 

jf ( •at_*alect ion_name (mo in_ect • . object _t ypeout . cur_objoct_name) — 
/•if that failed try to select the fir*t line •/ 
if (**t_*elect ion_num (mo in_act* . object _t ypeout , 1) 0) 

/• if that failed then there era no object* left so exit •/ 




panels.c 


/• otherwise update grid surface object with this new selection •/ 
•blbCt_object< (char*) moin_«ct * . ob j ert t ypeout ); 


END or updat e_object_typeo id 




extern woid set_typein_i val () libpanu 

extern woid sat_t ypainfvol () libpanu 

axtarn int setfld data_sal#ct Ion 0 libfldpen 

extern woid updat e_f ld_data_penel () libfldpan 

void updat e_co lot •I)*’ dafinad in this f i la 

void update_minn»x_sl idars () dafined in this fila 

int lock_cur_object (> dofinod In this file 

int un loc k_cu r_ob jact ( ) defined in this file 


void updsto_octuators ( void ) 


■ void update_ectuetors( void ) 


Todd Plessol 

NASA Ames Research Center 
Sterling Software 


extern Cr id_Surface* grid_»og< 


Niid^sager declared in ( 

moin_octs thia fila 

minmexjscts this fila 
update_ectuetora_made; daclarad in ( 


/* for button updates */ 


f* ,#t global flag to prevent unaedad deleting of normal* data */ 
updat#_#etuator *_moda - If 


/• fix tha Draw tha Object button •/ 

if ( ((int) maln^act* .dxaw_objact_button->wal) 1 ■ gr id_*ager->draw ) 

moinaets.drawob jeetbutt on-> vel - (float) grid seger-bdraw/ 
pnl_fixoct ( main_oct * .dr aw_ob jact^but ton ); ~ 

/• fia t ype menu •/ 

ACCESS* (main_act*.typa_inanu_group. *et_*alact ion. 0. grld_*eger -> type. 1. 0)/ 
/* fia render menu •/ 

ACCESS* Iwain_act a. randex_mann_group. *at_* elect ion, 0, grld_aagar -> render node. 


/• fix attributes menu •/ 

ACCESS* ( mo in_acts .attributes man 
co 1 or _ type, 1. 0) » ” 

ACCESS* (an ln_act a . att ributaajmn 
olor_t ype. 1. 0)/ 

ACCESS* (main acts. attributes nan 

ip_typ«. 1.0);“ 

ACCESS* (main_acts. attributes men 
1 . 0 ) ; 

ACCESS* (main acts. attributes men 

1. 0) i 

ACCESS* (main_acts. attributes man 


• at _a elect ion, 0. grldiager -> contour_ 
•at^salactien. 1. grld_sager -> vectorc 
a at_sa lection. 2. grld_sager -> vector _t 
■*t_se lection. 1, grid_seger -> clipjnod 
•«t_selection. 4, gridseger -> shaded, 
setose lection. 5. grld^soger -> framed. 




paneis.c 


if | gxid_aagar -> loopauzface 1- HID ) 

lnd[dlr] - grid_aeger -> range* Edit) [grid_aagax -> loopanr faca ) / 

/* chock that tha dimanaiana ara mild for tha other data */ 

tamp_acaler_id ■ -1* 
tamp_vactor_ld - - 1 ; 

if (DIHS_NATca(grld_aeger -> dim* (CRID TTPC ] . ftidja«at -> ditaa (SCALAR_TYPE) ) 
tao*_tcalar_id - gridtagar -> f iald_lda [SCAIJUl_IO ] x 

if (DIK3_HATCH(grld_aagex -> din [GRIO_TYPE ] . grldaagar -> din [VECTOR_TYPE| ) ] 
tan*_vectar_id - grid_to«ar -> f iald_ida [VECTOR_ID|/ 


P*int_field_noda_info(ind, diet*. 

grld_iagar -> f iald_lda (GRID ID), 
gridtagar -> f iald_ida [IBLAI«_ID) , 
t aftp«calar_ld. 
tenp~vectar~ld, 

buf. DATA_iiro_aor_sifn 
pnl_fi«aet (na in act a. data in fa typeaut)> 


inlock_cu r_ab ject 0 i 


l Cr id_Sur faca* grid_t 


daflnad in thia fila 


dolete_cantoura () 
ra aet^i jk_rangaa () 
lack_cur_ob J act () 
un lock_cur_ob ject 0 


daflnad in thia fila 
daflnad in thia fila 
daflnad in thia fila 
daflnad in thia fila 


■ END Of u pdat a_dat a_lnf a — — — 


aoid updatadiraa ( int type. int din (3) ) 
if (type I- CRID__TYPE (i type 1- SCALAR_TYPE 


** typa 1- VECTOR_TYPE> 


itatic void updata^dima ( int typa. 


Updataa tha grid auzface atructura' i 


Todd Plaaaal 

NASA Ana Ra a ear eh Center 
Starling Softvare 


grid_.ager -> dime (type) ( I) - dima(I)/ 
gcid_aagar -> din [typa) (J) - dima(J), 
grid_aagar -> din (typa) (K) - dima[K)j 

if (gHd_aager->render_mode — CON70CRLINE3) dalata_contoura O ; 
unlock_cax_akjact Of 

/•if grid typa than raaat tha IJK xangaa to within thaaa din •/ 


[typa -- CRJDJTYPE) raaat_l jk_rangaa 0 / 


paneis.c 


aid update_minmaz_alidera t float i 


Todd Plaaaal 

NASA Ana Raaaatch Cantor 
Starling Soft vara 


•at typain_fval () 
updata_lagand ( ) 
update_paletteal) 
lock_cvr_eb ject <) 
unlock_cur_ob ject U 


llbFfl 

libpanu 

daflnad in thia fila 
daflnad In thia fila 
daflnad in thia fila 
daflnad in thia fila 


:oprlata miltialidar */ 


- minmn«_acta.clip miltlalldi 
* mlnmax__act a.cl ip~bat_typaif 

- minnoa_nct a . cl lp_t ap t ypa ii 


alaa if (typa — LEGEND) 


/* update tha top a Ildar */ 
ta » ma -> all 

• pr int f laa -> lahai. FLOAT STRING FORMAT, minmax(typa) {TOP 
•a -> a at vo 1 - Norm! minima it ypa) [TOP) . 

minnaa [typa] (MINI) . minima (t ypa J (MAXI) ); 

/• updata tha bottom alidax */ 


• pr int f (aa -> lahai. FL0A7STR I »C_ FORMAT. mi rune a (type) [BOTTOf] ) , 
•a -> artval - Norm) min mo a [typa} [BOTTOM) . 

mlnmoaltypa ) [KIHIJ . iniiunoa(typa|[llAXJ) ); 


radxav tha appropriate multitlidar 


/• updata tha tap and bottom typalna V 

aet_typain_fval(ma*a, mi runs a It ypa) [TOPI. rLOA7_SnUlK_rORXAT) I 
•at_typain_fval (mine, mirutaa [t ypa) [BOTTOM) . FL0A7_JSTRINC_F0RMA7) t 

/• updata tha palattaa */ 
updata_palattaa (typa ) t 


updata_mlnmas_alldara — 


•tat 1c void updat a minmoa a Ildar •( float mlnraoa{2) (4) . int typa ) 


/• update tha min and r 




■ •t_typ*in_£*«Hn»*o. minim* (0) [MAXI] . IXOAI BTRINC rORHAT) ; 
■•t_typoin_fv*l(mina, minim* (0) [MINI] , rLOA?~STRIBC~FORMAT) ; 

/• radra * lagand nni«(i •/ 

upd*ta_l*g*ad (mlniaar [0 ) (KINIJ . mlnm*r(0] [HAXU . 

rainmar_acta . l*g*nd_labola) > 


I 

/' 


/* no* toko car* of tha contour atuff */ 

1 ock_cu r _ob J act () / 

grid_«*g*r -> contoura_mln - minmer [0( [MINI ] ; 
grid_**g*r -> contour*™* • mlntnoa [0] [ MAXI] ; 
grid_**gor -> coatour*_inc « 

(minaaatO) [HAX1] - mln™*[0) [MINI] ) / 

( float )grid_*agar -> nurn_contour •/ 

/• updat* tha ain/mnr typain •/ 

mina * contour_aet ■ .contoor_min typain; 
mora » contoqr_oct ■ .contour_mo*_typain; 

•*t_typoin_fval (sun, mlnmarlQ) [MAXI], rL0A?_STK_I NC TORMAT) ; 
**t_t ypain_f val (mina, minnio*( 0 1 [HISI ] , rLOAj”srJU»G~rORHAT) t 

/* radra* contour lagand nurtoar* */ 

updat*_l*g*nd IminmarfO} (MINI) , mlnma«[0] (MAXI). 

contour oct i .cont our laba 1») ; 

a*t_typ* la_iv*l (coatonr jacta . cont our_nura typain. 

grid_*ag*r -> nSm_contour ■ , INT_STRISC_rOHKAT> ; 

■ at_t ypa ln_f va 1 ( co nt ou r_act * . con t ou iinc_t ypai n . 

qridaagar -> contour *_inc, FLOAT_S7RI NCEORMAT) ; 

unlock_cur_objoct () ; 


END Of u pda ta_minmoM_* Ildar* •/ 


/*++ at at 1c void updato_log*ndl float nrin_v*l. float aar_val. Actuator** act ) 

* PURPOSE: 

* Opdata* tha logond to tha ipacifiad rainnnx valuaa. 

* AUTHORS: 


panelsc : •. • 

* Todd Plasaal 

* NASA Amo* Raaaarch Cantor 

* Starling Softaara 

* REVISION HISTORY: 

* */•• 

* INPUT PARAMETERS: 

* float min_vol 

* float moaval 

* Actuator* ~ *oct 

* OUTPUT PARAMETERS: 





aaluo 

valua 


function return: 

GLOBAL VARIABLES USED: 

•■tarn Kinm«r_Act* rainma*_act» thia fila 

rilE3 USED: 

Nona 

NOTES: 

NON-STANDARD COOE : 

CALLED BY : 

void updat *_min™*_* lldora 0 dafinod in thia fila 
FUNCTIONS CALLED : 

lock_cur_ebj*ct (» da fin ad in thia fila 

unlock_cur_obj#ct O dafinad in thi* fila 



updat *_l*g*nd */ 

float ma*_val. Actuator** act ) 

/• loop on labala */ 

/■ valua of labol */ 

/* incramant valua */ 

/• point a at labal acta •/ 

val ine - <mo*_vol - minval) / (float) (NDM LECEHD VALUES - 1); 

/* a at initial valua •/ 
vo 1 • min_vol; 

/• fia aach labal (from tha botton up) with incramntal valua */ 


atatic void updata_logand( float minval. 

int 1/ 

float val; 

float vol_ine; 

Actuator* ta»~ 

/* calc incramantal valua •/ 



for (1 - 0; 1 < NUM_LECEND_VALUE3; 4-»i) 

I 

ta • act [i]; 

■ printf (ta -> labol. FLQAT_STRING_FORMAT, ml) ; 
pnl_f iract (ta) ; 
val ♦— val_inc; 


/» END Of updata logand • / 


f*++ atatic void updata_palottaa ( int clip_or_norrn ) 

• PURPOSE: 

• Updat ot tha polattaa to raflact tho na* aattinga of 

• tho (pocifiad a Ildar . 

• AUTHORS: 

• Todd Plaaial 

• NASA Am* R**aarch Cantor 

• Starling Softuara 

• REVISION HISTORY: 

• »/l* 

• INPUT PARAMETERS: 

• int cllp_or_norm CLIP or NORM multlalldor 

• OUTPUT PARAMETERS: 

• Nona 

• r UNCTION RETURN: 

• Nona 

• GLOBAL VARIABLES USED: 

• astarn Mifrm**_Act* minma*_act»; thia fila 

• PILES USED: 

• Nona 

• NOTES: 

• NON-STANDARD COOE : 


panels.c 

I * CALLED BY : 



void updat *_m in™ a_* Ildar* () 
void ad ju*t_mirtmar_func () 


r UNCTIONS CALLED : 


dafinod in thia fila 
dafinod in thia fila 


aatarn void dra*_palottaa () 

int lock_cur_ob Joct <) 

int un loo k_cur_ob Joct O 


libpanu 

dafinad in thia fila 
dafinad in thia fila 


updat a _p« lotto* - 

■t at le void upd*t*_polatt*» ( int clip_or_norm ) 


Actuator* m; /• clip or norm mltlalldar */ 

norm_bot_val; /• norm bottom alidar val •/ 

float norm_top_val; /* norm top alidar val •/ 

*100* clip_bot_val; /• clip bottom alidar val •/ 

Cloot clip_top_val; /• clip top alidar val */ 

*1°** w *l* /* trip normalitad valua •/ 

float val*(NUM_PALETTE_TYPES] [2J; /* bot/top pal vala */ 

float origin [2]; /• »/ y coord of bot loft */ 

Hoot colora(NUM_PALETTE 7YPES] (2J; /» bot/top color vala •/ 


/* gat atata of norm nultial idor */ 

m* « mlnmur_*ct • .nonn rmjlt i* lidor; 
norm_top_val • ma -> ol -> art val; 
norm_bot_val ■ rt* -> al -> nart -> artval; 

origin!!) ■ m* -> y; 
if (clip or norm - - NORM) 

i 

/* fir norm palatto •/ 

origin (X) * m* -> r - PALETTE_NIDTH; 

vol* [MED) (MAXIMUM) - norm_top val; 
val* (MED} (MINIMUM] - norm_bot%al; 

color* (MED ((MAXIMUM] - KAXHAP; 
color* (MEDHMINIMUMJ * MIN KAP; 


dra*_palattaa( NUM_PALETTE_TYPE3. 

m inmar_act * Tpa latt a • { NORM J . 

vala. 

color*. 

PALETTE_H EIGHT, 
origin) ; 


/* fir logond palatto* •/ 






OF POOR QUALITY 



DIMENSION XT (DUO , WdMX) , IT (DfX) , XT1 (IHX) , YT1 (DfX) , ZT1 (IMX) 

^ DIMENSION OST (IMX) . COSVdKX. 3) 

C FIND 3 SEGMENT ALONC J LINE 
C 

DO 50 1-1. HIPTS- 1 

cau. osrrv(XT(i),rr(ij ,x?d).XTd+i),rTd+i) ,rr<i+l). 

C SSXII) ,8SY(I) .SSX(I>> 

SO CONTINUE 

c 

C FIHD OAP.AAP LENGTHS THAT DETIHZ S' 

C 

I CROSS (1) —1 
DO 200 1-2. NIP7S-1 
DO 120 L-ICROS8{I-l).NIPTS-l 

c 

C FIND AD VECTOR AND 8. NORMAL TO PLANE 
C 

CALL ONITV(XTl(I) ,YT1(I) .XT1(I) ,XT(L) . Y7(L) , XT (L) . DAX, DAT. OA 
CALL PURPLE (SSX a) .SST(L) ,83X(L) , OAX. DAT. DAX, 
c DUX. DNY. DHZ .HFLAC) 

VI — COSV( 1, 1) 

V2-- COSV(I,2| 

V3— COSV(I, J) 

ADX-XTKI)-XT(L) 

ADY-Y71 (I) -Y7(L) 

ADX-XTim-R(L) 

CALL DETERM (SSX(L) , VI, DHX, SST (L) , V2. DNY, S32 (L) , V3, DNS, SICO) 
IFtBICD.EQ. .0) CO TO 120 

CALL DETERM (ADX, VI, DNX. AOT. V2. DHY, ADZ , V3 , DBX. AAD) 

AAP (I) -AAD/BICD 
rr(AAPd) .LT..0J AAPO-.O 
IF (AAP (I) .LT.DST(L)) THEN 
C 

C AAP rOCXD: BOH FIHD DAP 

C 

DAPX-AAP (I) -SSX(L) -ADX 
DAPT-AAPdJ-SST(L) -ADT 
DAPX-AAP (I) *SSZ(U -ADX 
DAP ( I ) -SORT ( DAPX« *2 +0APT* *2+DAPX «*2) 

ICROS3 (I) »L 
CO TO 199 
END ir 

120 CONTINUE 

ICROSS ( I) -ICROSSd-1) 

DAP (I) -DAP (1-1) 

199 CONTINUE 

IF (DAP (I) .LE. .0) DAP (I) -OAF (1-1) 

200 CONTINUE 


s£ger.f 


SUB ROOT I BE CSPLIN (NT. S. V. SPF) 


I THIS ROOTISE EVALUATES SPLINE COEFFICIENTS (SPT) USED BT SPCVA1 
: THESE ARE REQUIRED ONLY WHEN THE CEOMTRT 0P7I0B IS REQUESTED (CECM-T) 
: OR IF SPLINE INTERPOLATION REQUESTED ( INTER— 4) 


C CALLED BT: INTF, INTXTXQ. MALLS 


C CALLS: SORE 


PARAMETER ( Id- 150, jd-150. k<W50, iran-lSO, ND»-5) 
DIMENSION S(IMX) ,V(IM» , AdKX) . B (IHX) ,C (DOC) .SPF (IMX) 
DO 10 I - 2, NT-1 
A(I) - Sd)-S(I-l) 
xi) - 2,*(sd+i)-sd-in 

cd) - sii+D-sti) 

sprd) - t.M)v(i+i)-v(io/c(i)-(v(i)-v(M))/Aa)) 

) COST 1 80S 


C BOUNDARY CONDITIONS 


All) 
Bll) 
C(l) 
SPF (1) 
A(NT) 

B (BT) 
C(N7) 


- 0. 

- 1. 

- -.5 

- 0. 

- -.5 

- 1. 

- 0. 


spr<sT) - o. 

. . SOLVE THE SCALAR TRIDIACONAL SYSTEM 

Cd) •Cll)/B(ll 
SPF (1) - SPF ( 1) /B (1) 

DO 40 I - 2. NT 

Bd) - 1. / (B (I) -Ad) *C(I-1) ) 

sprd) - (spr(i)-Ad)*sprci-in ‘Bd) 

Cd) - CIII'IIII 
3 CONTINUE 
DO SO I - *1-1. 1,-1 
SPF (I) - SPFd)-C(I)*SPrd+l) 

J COST I HUE 
RETURN 


SUBROUTINE DETERM (A1 . B1 . Cl. A2. B2. C2. A3. B3. C3 . DET) 


C THIS ROUTINE COMPUTES THE 3-ORDER DETERMINANT 

CALLED BY: CROSS V 
C 

CALLS: UNITV 


CROSSA— 82*C3-C2*83 

CROSSB-A2*C3-C2*A3 

CROSSC-A2 * B 3- B2 *A3 

DET-A1 'CROSSA-B 1 ‘CROSSB +C1 * CROSSC 

RETURN 

END 

SUBROUTINE DIENC(JL.K) 


CALLED BY: HTEDCE 
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C CALLS: NONE 


PARAMETER (id-150, jd-150, kd-150. ira-150, NDIM-5) 
c«*wn/cooay*/«(id, jd. kd> ,y(id. jd.kd) .« (id. jd.kd) 
CMnnon/cemq/q(id. jd.kd, ndin) 

CO*«N/C0M4/mAX, UMAX, MAX. 1ST, IEHD, J3T, JEND. KST, SEND, NIPT3 
CO*«N/COM*/DSMAX. D SMI N . WT < I MX) . DLEBCS. OLE DCS, NDS8, HOES 

C CALC OF DLEHC DEPENDS ON HH ETHER DATA EXISTS EXTERNAL TO 
C ADAPTION DOMAIN 
C 

C (1) AT FIRST EDGE POINT 
C 

IFdST.EQ.l .OR. (X(IST-l.JL.K) .EQ .0 .AND. 

C ( X (IST-1 ,JL-1, K) .EQ .0 .OR. X (157-1. JL+l.K) .EQ..0))) THEN 
0LEHCS-SQRT((XdS7+l. JL,X)-XdST, JL.K) ) -»2+ 

C (YdSTd.JL,I)-YdST. JL.K))* +2+ 

C (X (IST+1 , JL.K) -X (1ST, JL.K) ) **2) 

ELSE 

DLEBCS -SORT ( (X (1ST. JL. N) -X (IST-1, JL. R) )• *24- 
C (Y (1ST. JL.K) -Y (IST-1, JL, K) ) ••2+ 

C (X (1ST, JL.K) - I (IST-1, JL.K) ) **2) 

END IF 
C 

C (2) AT LAST EDGE POINT 

e 

irdEKD.EQ.IMAX .OR. IXIIEBD+1, JL. R) .EQ .0 .AND 
C (XIICND+l, JL-1, K) ,EO .0 .OR. X ( IEND+1 , JL+1, R) .EQ. . 0) ) ) THEN 
DLEMCE-SQRT ( (X ( IEHD, JL. K) -X(IEND- 1, JL, K) ) **2+ 

C (YCEKD.JL, X)-YtIEHD-l.JL.X))«2+ 

C (XdEHD. JL, K) -X(IEKD-1, JL.K) ) *»2) 

ELSE 

OLEBCE-SQRK (X(IEKD+1, JL.K)-X(IEND.JL.K) ) **2+ 

C t Y (IEND+1. JL.K)-Y< IEHD, JL.K) )**2+ 

c (I (IEND+1, JL. K) -X ( IEHD. JL, X) ) **2) 

END ir 
RETURN 
END 
C 

SUBROUTINE EDCEMC (VAR) 


C THIS ROUTINE MERGES THE END VALUES OF VAR INTO NEXT ' MC' MESH 
C POINTS. LI IS START EDGE (OFTEN 1), L2 IS END EDGE (OFTEN HIPTS) 
C IT EITHER IS EERO, THEN MO MERGING AT THAI END 
C 

C CALLED BY: L IKE 1, SOLDI 
C 

C CALLS: NONE 


PARAMETER (id-150, jd-150, kd-150, inor-150. HDDN*3) 
CCPNKJH/COM4/IKAX. UMAX. MAX. 1ST. IEHD, JSI. JEND, KST, KEND. HIPTS 
COMON/CCM9/SP(IMX) , SP PL ( IMX) . DAP (IKX) . DAP PL ( IMX) . 

C NEDCE.MC1.MC2 

DXMEN3XOX VAR ( IMX) 

IT (MCI , NE. 0) THEN 
DO 150 1-2. MCI 

VAR (I) -(VAR(I) « d-1) +VAR<1) * (MC1+1-I) ) /MCI 


CONTINUE 
END IF 

lr(MC2.ME.O) THEN 
DO 200 1-2, MC2 
L-NIPTS-I 

VAR( L) - (VAR(L) * d- 1) +VAR ( NIPTS-1) * (MC2+1-I) ) /MC2 
CONTINUE 
END IF 
RETURN 
END 

SUBROUTINE rRAR(J.K) 


C THIS ROUTINE COMPUTES THE FLOW I ELD GRADIENTS. (FQ ) , 

C THE GEOMETRY GRADIENTS. (PC); 

C NORMALIZES (TO FBAR) ; FINDS B BY CALLING CETB; 

C COMPUTES S FROM X.Y; TINDS MIDPTS OF S» 

C AND REPROPORTIONS S FOR INITIAL GUESS MITHIH DATA BLOCK 
C AND FINALLY INTERPOLATES FOR X, Y.FB ETC AT NEK S 

C CALLED BY: MAIN 
C 

C CALLS: I*tr, MALLS, MCNALLS. NORM, CETB, FILTER. PROPS 


PARAMETER ( id-150, jd-150. kd-150, iaai-150. NDDt-5) 
cocoon /comxyc/x (id, jd. kd) . y (id, jd, kd) . «< id. jd, kd) 
cocoon /cotnq/q (id, jd. kd, ndia) 

C(MMOH/C(M2/F ( Dot) , r B I IKX) . WEIGHT ( IMX) , A, B. WDS, WDE 

cctmoN/cad/83<mx) . smsidoo .dsiimx) . shidoo .skm(Imx) .snmk(Imx) 

CCWMQN/CCM4/IMAX, JMAX, UMAX. 1ST. IEND, JS7, JEHD . KST. KEND, HIPTS 
C<MMOH/COM5/RDS4AX, RDSdN. INDQ. IQ(NDIM+3) 
CCTQ*MI/C«</DSKAX.DSMIH.W7 ( IMX) , DLENCS, DLENCE, WDSS, NDE3 
COMMON /C0MB/XJ (IMX. J, )) . YJ ( IMX, J. J) , ZJ(IMX, 3, 3) 
CCMM0O/CCM11/KTILT, INTER. MGSTEPS.MCPLS. CE0M, QPUN. HFLAC 
COMMON/COM 17/ FQ( IMX) , FG (IMX) , FCSCIMX) . SMSS ( IMX) , HXFC FCN row 
DIMENSION AMACHI IMX). PRES (IMX). THAT (IMX) , TDQ (Q1X) 

LOGICAL CEOM.Qrus 
CAM-1.4 

C FIND 8 ARRAY (S3 AND SMS ARE EVALUATED AT INPUT POINTS 
C AND STAY FIXED FOR EACH LINE-USED FOR INTERPOLATION) 

C SN IS UPDATED 3 ARRAY. StMX IS S ARRAY AT K-l 

33(1)-. 0 

sanm-.o 

DO 100 I-l, HIPTS- 1 
L-IST+I-1 

D3 II) -3QRT ( (X (L+l , J, K) -X(L, J. K>)*»2+ 
c < Y (L+l ) -Y(L,J.K))**2+ 

C (Z (L+l, J. »/ -Z (L, J. K) ) • *2) 

SSd+1) -3S(I) +DS (I) 
ir(K.CT.KST) THEN 

DStMK-SQRT ( (X (L + 1, J, K-1)-X(L, J,K-1) } **2+ 

C (Y(L+1, J,K-1)-Y(L. J. K-l) ) ••2* 

C (Z(L+1. J.K-1)-Z(L, J. K-l) ) **2) 

S MX (1+1) -SIXK ( I) +DSNMX 
ELSE 

SBOt d+1) -.0 
END ir 
CONTINUE 



DO 200 I-l. NIP73-1 
SMS (l> -(S3 <1+1 1 *3S (I) ) - .5 
CONTINUE 

AVED8-S3 (HIPTS) /(NIFT3-1) 

D SMAX -RD SMAX* AVED3 
DSMIB -RO SMI H-AVEDS 
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C FIHD DQ/DS 


2*0 

300 


DO 300 B-l. KDEK 
OO 240 I-l. HIPTS- l 
L-I+IST-1 

rO0CI)-(ASSI0a>l.J. K.H)-Q(L.J.R. Ml) /DS(I) 
CONTINUE 

CALL DO Of ( FDQ, NIPTS-1 ) 

DO 2(0 I-l. NIPTS-1 

ir(H.EQ.i) rotn-.o 
FQin-rouj+ioiH) *n>ou) 

CONTINUE 

CONTINUE 


r ,,u^ ALnA7E PRZSSTO£ *«> “AOI BOMBER IF USED 
C (7HE3E ARE NORMALLY STORED IB IBOEX C i 7, SOT CODE 

c an sasy- "■ ™ 

c 

IFdQINDm+l) .NE.O .OR. IQ(NDIM+2) .KE.O .OR. 

C IQINDIM+3) .NE.O) THEB 
DO 350 I-l.NIPTS 
L-I*IST-1 

P1“(Q(L.J.K.2)«*2+<)<L. J.K, 3)**2+oa , j.r.4) .. 2 ) 
PRES (L) - (CAM-1 . 0) • <Q(L, J, K. 5) -.5*P1> 

AMACU (L) “SQRT (PI/ (CAM*PRES(L) ) ) 
TRA7(L)-GAM*PKE3(L) /Q(L. J.K. 1) 

350 cam BOB 

DO 400 I-l. HIPTS- 1 
L-I*IST-1 

FDQP-ABS (PRES (L*l) -PRES (L) ) 

FDQAM-ABS (AMACH ( L+l) -AMACH (L) ) 
rDQT-AAS (TRAJ (L+l) -TRAT (L) ) 
r0(I)-FQ(I) + (I0(K)DI+l} *rOQP+IQ(NDDl+2) *FDQAM 
C +IQ (NDIM+3 ) -FDQT) /DS (I) 

400 com SUE 
EBD ir 


C FIND DG/OS, GEOMETRY GRADIENTS 


ir(CEOM) THEB 

irU.EQ.JST .OR. .NOT. QFOH) CALL HALLS (J.K) 
c ir{QnjH.ABD.J.EQ. (<JEND-J3T)/2+l)) CALL WALLS (JEND.K) 

C FIND rCM. COEFF ICIER OF GEOMETRY rDBCTIOB 

IF ( .HOT. QTUN) THEB 
FOM-.O 

rcw-i.o 

ELSE 

CALL MCWALLS(J) 

ir(rcM.Eo..o) co to 4 *o 
EBD ir 
c 

c irterp rc (OS IBC res cmpcted ih malls) 

C AMD NORMALISE TQ AND TG 
C 


CALL INTF (rcs.rc.ss.SMS 3 . BIPTS- 1 ) 

CALL NORM (rC. BIPTS-1) 

CALL BORMIFO. HIPTS- 1 ) 

EBD ir 

C CCKPUTE F 

c 

! 410 COBTIHOE 

DO 475 I-l.BIPTS-l 
F 1 1 ) -FQM* FO ( I) +r CM'FC ( I) 

475 COHTIBOE 

|c ir REQUIRED. FILTER T 

ir(HriLT.CT.O) CALL FILTER(r. BIPT 3 , STILT) 

|c r IS BOM F IKALIZED ABD EVALUATED AT SS 
C STORE r II n BEFORE NORMAL IS IRC IOSE IBTF) 

call iBTr(r.rB.ss.sMS.HiPTS-i) 

CALL HOWf(rB. HIPTS- 1 ) 

'c FIHD B USING DATA EVALUATED AT IBP or NODES 
CALL GETS (J.R) 

V ISE “ ARRAY ' IF 1 ST TIME. “S 3 . ELSE PROPORTION I 

C CONVERGED SOLUTIOB AT J-l LISE AND RE-EVALUATE T . DS 

IF (J.EQ.JST.AHD.K.EQ.KST) THEB 
DO 520 I“l. NIPT 3 
3 N(I)-S 3 U) 

COHTIBOE 
ELSE 

CALL PROPS (J.K) 

EBD IF 

DO *00 1 - 1 , BIPTS -1 
DS(I) “SB(I+ 1 )-SB(D 
COHTIBOE 

C INTERPOLATE TOR T AT HEW 3 . AND COMPOTE FB 

CALL INTF (F.TB. SB. SMS. BIPTS- 1 ) 

CALL BORMIFB. NIPTS- 1 ) 

RETURN 


SUBROUTINE FILTER (VAR. HIPTS. KFILT) 


THIS S UBROUT I HE FILTERS (SMOOTHS) GIVEN VARIABLE 
CALLED BY: FBAR.30LU7. LIKE1 
CALLS: HONE 


PARAMETER (id- 150, jd-150. kd-lSO. im*»150, NDIM-5) 
DIMENSION VAR ( IMX ) , VT ( I MX) 5> 


DO 200 L-l.NFILT 
DO 100 1*2, NIPTS-2 


VT(I)“.75*VAR(I) + .125* (VAR (1+1) +VAR(I-1) ) 
COBTIHOE 

DO 150 I “2, NIPTS-2 
VARd)-VT(I) 

CONTINUE 

COBTIHOE 

RETURN 

EBD 

SUBROUTINE CETB ( J. K) 


r “ BY ITCRATr0N > USING INITIAL GRID SPACING 

C B CONVERGES MHEH INPUT OS MIH^OKPOTED DS MIB 
C B CONTROLS THE MINIMUM ALLOWED S MESH SPACING 

Z CALLED BY: FBAR 

: 

C CALLS: IBTF 


MMMETCR(i4-lS0. jd-150, kd-150. inor*150, HDIM“5) 

* SMS ( IMX) . DS ( IMX) , SB ( IMX) , SIM (MX) SNMKdMX) 
CCM4ON/C0M4 /DUX. UMAX. (WAX. 1ST. I EBD . J3T .JEHD. Sr. 
C(MUB/C(M(/DSMAX. DSMIN.WTdMX) . DLENCS. DLENCE , MDSS HOES 
COMOM/CatlS/COSV. MAXIT8. HOOP. LNSIBG, PLSINC. BK1 
DIMENSION ALNF ( IMX) , PINT ( IMX) .WIT (IMX) 

DIMENSION SHE (IMX) .DSB (MX) 

LOGICAL NOOP 
INTEGER PLSINC 
C 

C IF riRST LINE SET INITIAL CUE S 3 OF B-1.0 
C AND PERMIT MORE ITERATIONS rOA CONVERGENCE 
C OTHERWISE FIRST GUESS OH B IS THE CURRENT VALUE r RDM 
C THE J-l LINE (OR IF JST, THEN K-l LINE) 

MAXBITS-MAXIT3 
ir(J.EO-JST) THEN 
ir (K.CQ.KST) THEN 
B-1.0 

MAXBITS*4AXIT3+20 
ELSE 
B-8I1 
END IP 
END ir 

I r ( J . EQ, JST +1) BK1-B 
BJ1-8 

iriA.EQ. .0) GO TO •*» 

DB-.O 

3BB(l)-.0 

C 

C CONVERGENCE OT D3MIB MUST BE BETTER THAN 
C REQUESTED DSMIB. HENCE BCOBV IS FUNCTION OF DSMIB 

BCONTOSMIN*.02 

C 

C ITERATE TO FIND CORRECT B 
C 

DO 500 ITER-l.MAXBITS 
C 

C COMPUTE WEIGHT BASED OB CURRENT B 
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C USING INITIAL GRID SPACING 
C 

00 100 L«l, NIPTS-1 
WEIGHT |L) -1 . 0+A*FB (L) **B 
100 CONTINUE 
,C 

|c FIBD HEM DS. USING THIS B 
WTSUM-.O 

DO 120 I-l, NIPTS-1 
WTSUM-trrsUM*l . 0 /WE ICHT 1 1) 

CONTINUE 

DO 130 I-l. NIPTS-1 
DSB ( I) “SS (HIPTS) / (WEIGHT!!) *WTSUM) 

SNB ( 1*1) -3NB ( I) +D3B (I) 

CONTINUE 

C FIBD MIN VALUE OT OS 

DSMIN-DSBU) 

DO 150 L-2, NIPTS-1 
ir (DSB (L).LT. DSMIB) OSDflH-DSB (L) 
CONTINUE 

[c TEST TOR CONVERGENCE 

TSTCONV-ABS (DSMIN-DSMIH) 
ir (TSTCOBV , LB. BCOBV) CO TO 999 

jc NO CONVERGENCE, COYPUTE OB FOR NEXT ITERATION 
c (1) riND NEW rs AND W AT THIS NEW SPACING 

CALL INTF (HEIGHT, WIT, 5NB. SMS. NIPTS-1) 
CALL INTrirB.FINT. SNB. SMS. BIPTS-1) 

. 1*0 CONTINUE 

[e 

C (2) FIBD DERIV OF DXIHIN WRT B 
SDM-.O 

DO 200 L-l. BIPTS-1 
ALSF (L) “LOG (FIHT(L) ) 

SCM-StM+FINTIL) **B *ALHF (L) /WIT(L) *»2 
CONTINUE 

DHINSDB-A* (1 ,0*A) *DSIMIB**2*SUM/SS (NIPTS) 
IF (DMIN3D8.EQ. .0) GO TO 99B 
DB-(DSMIN-DSMIN) /DMINSDB 
B-B+DB 

C MAINTAIN REASONABLE l MINI rOR I 
| C MAY BE EXTRIM 

IF (B.CT.5 ,0) B-3.0 
IFIB.LT..0) B-.l 
j50 CONTINUE 

c 

c NO CONVERGENCE ON B. USE OLD VALUE 


, FIRST ITERATION 


CONTINUE 

ir(J.EQ.JST) THEN 
B-1.0 
ELSE 
B-BJ1 
EBD ir 

CONTI BUS 


C THIS ROUTINE DETEIWIKE3 THE HOLT I PL ICR 
C Or THE HEIGHT CONSTANTS (NT) . THESE ARE AH ADDITIONAL 
C CONTROL OH THE MAX AHD NIB ALLOWABLE OS’S. AM IS A 
C VARIABLE THAT PREVEHTS A ’ rLIP-FLOP’ CO HD 17 1 OH. 


C CALLED BY: LIHE1.SOLO? 


PARAMETER(ld-150. jd-150. kd-150. ioa-150. HD IK-5) 
CGMM0N/CCM3/S3(IMX) .SMS(IMX) . D3 ( IMX) , SB | DM) , SIW(IMX) .SHMXfDtt) 
COMON/COM4 /DUX. JMAX. KKAX, 1ST. IEHD , JST, JEHD. KST, KEBD.SIPTS 
C<WMOH/CCHS /DStAX, DSMIH, NT ( IKX) , DLEBCS. DLENCE . KDSS , NDE3 
CGM4ON/C0M9/SP ( IMX) . SPPL ( IMX) . DAP ( IMX) . DAFPHIMX) . 

C NEDCE.IKI.HC2 


AM-. 5 

DO 50 1-1. NIPTS-1 
WIII-1.0 
CONTINUE 


1 1-1 

IF(MCl.HE.O) I1*«K1 
I2-NIPTS-1 

IF (MC2.NE.0> 12 -HITTS- NG2 
DO 100 1*1. NIPTS-1 
ir(DS(IJ .CT.DSMAX) THBH 
DT— DS ( I) / DSMAX 
OT (I) - (DT-1.0) *AM+1 . 0 
END IP 
CONTINUE 
DO 200 I-I1.I2 
ir(DS(I) .LT.DSMI8) THE* 
DT-DSI I) /DSMIH 
NT (I) -(DT-1.0) *AM+1 . 0 
END IF 
CONTINUE 
RETURN 


SUBROUTINE INITIAL (NGMORE, NADS) 


PARAMETER! id- ISO, jd-150. kd- 150, ln-150. HDDf-S) 
comnoa /oomtyi /*( Id, jd, kd) , y (id. jd. kd) . t ( Id. jd. kd) 
coomwi / Cfltnq/ q ( id , jd. kd. ndim) 

ccKMOH/cou/r (na> , rs ( nnq . neigh? i dqi . a. b, nds. nde 

' 3,3 < ™ . SH , DW smuacx) .SMOt(DIX) 
COMMON /COI4/IKAX. UMAX. DUX. 1ST. IEHD. JST, JEHD, KST. ICE HD HIPTS 
COMMON /C(M 5/RDSMAX, ROSMIH. IHDQ. I 0 (HDIM + i) 

COMMON /COKS/D3HAX. DSMIH, NT ( IMX) . DLENCS. DLESCE, NDSS. NDES 
COO«8/CCM*/SP ( IMX) . SPPL (DO) , DAP ( IMX) , DATPL (MX) . 

C HEDCE.MC1.MC2 

C OMM ON /COM 10/ CLAM (2) ,CT (2) .TH(2) .C)M(Z) , CLAMN(2 ) , CTM (2) , TW(2) 
COmOS/COMll/HFILT. INTER. MC3TEPS.MCPLS.CECM. QT3B, HTLAC 
COWON/CO! 12/FSHACH. ALPHA. RE. TIME. HITC.NITQ 

CCMMOH/COI13/ ISTEP. JSTEP.KSTEP. I INVERSE. J INVERSE, ft INVERSE. TNOO 
CCTMOB /COI 1 4 / UPL ARE . IKPLANE. JKPLAHE . MARCH , MARC HP L . SAVE. OK 
COMMON /CQt 15/ COSV, KAXITS, BOOT, LHSIBC, PLSIBC.BKl 
CCMMOB/COMlt/OKIHS. ORTHE 

COMMON /Ctw IT /F0( IMX) .re (IMX) .res (IMX) , SUSS ( IMX) , MXFC, FCN, POM 
COMMOH /COM 1 • / SUB . LSTSUB , LEHDSUB 
COIKON /COM 14/ ADD. LSTADD , LEHDADD 

LOGICAL ISTEP. JSTEP.KSTEP. I INVERSE. J INVERSE. KIHVER3E, TNOO 
LOGICAL IJPLAHE. IKPLANE, JKPLAHE. MARC H.MARCHPL, SAVE. OK 
LOGICAL CECW, QFUB, IIOMDflE, NOOP, ORTHS, ORTHE, RSKAP 
INTEGER ADD, SUE, PLSINC. REMOVE 
C 

CIIIIIHIIIIIIIIIIIIJIIIIII I III II J II I 1II1I1IIIIIIIIIIIIIIII1IIIIIIIII1 

C 1ST, IEHD— TIRST AHD LAST ADAPTION POINTS IN I DIRECT ICXJ J 

C JST , j 

C KST.nMD*- | ! 

C ISTEP, JSTEP.KSTEP -TRUE TOR STEPPING DIRECTION r 

C IJPLANE, IKPLANE, JKPLAKC-TRUE POR MARCHING PLANE T 

C RDSMIH, RDSKAX-KIH AHD MAX ALLOWABLE GRID SPAGIBGS I 

C CLAM (2) MAGNITUDE OT TORSION (1-IJP LANE, 2- IKP LAKE) I 

C NEOCE-EDCE SPACING CONTROL, 1-80TH. 2-ST. 3-END X 

C CT (2 ) -PROP . or STRAIGHTNESS TO ORTHOGONALITY. 1 -STRAIGHT, 0-NORMAL I 
C MGS7EP3-S0 or STEPS BEFORE FULL ADAPTION REQUIRED t 

C MCPLS-SO or PLANES BEFORE FULL ADAPTION OCCURS I 

C CECW -TRUE, INCLUDE CEOtETRY GRADIENTS CLOSE TO WALL j 

C OTUN-rALSE-USED ONLY WHEN CECW- TRUE AHD ONLY ADA77 TO GEOMETRY I 

C INDQ-IHDEX ON FLONFIELD VARIABLE r 

C IO(NDIK+I) -Ir IHDQ-O. PROPORTION OF rL ONFIELD VARIABLES I 

C HOUR -TRUE ir BO ADAPTION REQUIRED (EC ir ADDING PT3 ONLY) I 

C MARCH-TRUE rOR EXTRAPOLATING LAST ADAPTED LINE ( ir JST IT JMAX) I 
C KARCHPL-TRUE FOR * LAST ADAPTED PLANE TO REMAINING PLANES I 

C ADD-INTEGER FOR ADDING POINTS IN ADAPTION DIRECTION r 

C LSTADD. LEHDADD -RANGE WITHIN TO ADD PT3 , 

C SUB- INI CCER TOR DELETING POINTS . 

C LSTSUB. LEHDSUB -RANGE TOR DELETING POINTS j 

C REMOVE- NO OF PT8 TO REMOVE FROM OUTER BOUNDARY OF ADAPTION LINE I 
C SAVE-rALSE TO SUPPRESS O/P OF ADAPTED FILES j 

* 3. ORTHE -FALSE TO SUPPRESS ORTHOGONALITY AT WALL BOUNDARIES I 

C NT 1 1 7- INDEX OS AMOUNT OT FILTERING OF RAM DATA ▼ 

C INTER^JRDER OT INTERPOLATION - 

C LN3INC-N, SAME LINE IN EACH PLANE: ADAPT ONCE ONLY I 

C PLSINC— N. PLANE COLLAPSED TO A LINE t 

C MCI. MC2 -CHANCES NO. Or POINTS IN HEDGE CONTROL 1 

C TWOO-.trn-. TOR 2-D DATASETS T 

C * 

cxixxixxxzzmixmxxxiziiimxixixxxxiixxxzTmxiiiixxizzmxmxxxxi 

NAK EL I ST /NAME L/ 1ST. IEHD, JST, JEND, KST. KEND, RDSKAX RDSMIN 
C ISTEP, JSTEP.KSTEP. IJPLANE. IKPLANE. JKPLANE. 


C CLAM. HEDGE. CT, MCSTE73. MGPLS. IHDQ, IQ. NOUP, TWOD. REMOVE. 

C MARCH, MAHCHPL. ADD , LSTADD. LENDADD, SUB. LSTSUB. LEHDSUB. SAVE. 
C ORTHS. ORTHE. NT 117. IHTER, GEOH, QFUN. LHSIBC. PLSINC, MCI . HG2 


ISTEP-. TALSE. 
J3TEP-. TRUE . 
K3TEP-. FALSE. 
IJPLANE- .TRUE. 
JKPLANE-. FALSE . 
IKPLANE-. FALSE. 
RDSMAX-2 . 0 
RDSMIN-. 5 
CLAM (1) —.01 
CLAM (2)-. 0001 
NEDCE-0 
CT (1) -.5 
CI (2) -.5 
MCSTEPS-0 
MCPLS— 0 
LN3ING-0 
PL31NC-0 
INDO-1 

NOUP -.FALSE. 
MARCH-. rALSE. 
MARCHPL-. FALSE . 
ADD— 0 
LSTADD— 0 
LEHDADD -0 
SUB-0 
LSTSUB- 0 
LEND SUB -O 

SAVE— .TRUE . 
ORTHS-. TRUE. 
ORTHE-. TRUE. 
HTILT-2 
CEOM-. FALSE . 
QFUN— .TRUE . 
INTER-2 
TWDO-. FALSE. 


N0M0RE-. FALSE. 

I INVERSE*. TALSE. 
JIHVER3E* . FALSE . 
KINVER3E*. FALSE. 
TNID-.5 
TN(2) -.5 
COHV*.001 
MCI— 0 


C READ USER IHPU7 PARAMETER FILE 
C 

c READ (5. IWL-NAKEL , END-2 30) 

c ir( IKPLANE. OR. JKPLAHE) IJPLAHE-. rALSE. 

c IF (ISTEP . OR. K3TEP) J STEP-. FALSE. 

c IF (IJPLANE. AHD. KSTEP .OR. IKPLAHE . AND . JSTEP 

c C .OR. JKPLANE. AMD. ISTEP) THEN 
c WRITE!*. 1000) 

cl 000 FORMAT (' INCONSISTENT PLANE AHD STEP’) 

c CO TO 230 

c END IF 

C 

C READ GRID AND FUNCTION FILES 
C 

ir (NADS .EQ. 1) THEN 
c CALL READ AT 

CALL SIZING ( IER) 

IF (IER.EQ.l) GO TO 230 
END IF 

ir (IEND.EQ.O) IEHD- DUX 
IF (JESD.CQ.O) JEND-JKAX 
IF (KEND.EQ.O) KEND-KMAX 
C 

C SET UP INDICES TOR EDGE TREATMENT, BASED ON HEDGE 

ir( (HEDGE. EQ. 1 .OR. HEDGE. E0.2) .AND. MCI .EQ. 0) HG1-4 
^ ir( (HEDGE. EQ. 1 .OR. NEDGE.EQ.3) .AHD.MC2 .EQ.O) MC2-4 

C SWAP COORDINATES ir NEC 

C (COOE ALWAYS ADAPTS * I* STEPPING IH ’ J’ LINES AHD *K’ PLANES) 
IF ITWOO) CALL SWAP2D(1) 

c ir ( .NOT. (IJPLANE .AND. JSTEP)) CALL SNAP XTS(RSWAP) 

C IF IS7>IEM0 OR JST5JEHD, SNAP DATA 
C (ANALYSIS ASSUMES I AND J INDICES ALWAYS INCREASE) 

IF ( IS7 . CT . IEHD) I INVERSE- .TRUE . 
ir (JST .CT. JEND) J INVERSE— .TRUE. 

H (KST .CT. KEND) K INVERSE-. TRUE. 

IF ( JST. EQ. JEND .AND. JST. EQ. JMAX) J INVERSE- .TRUE . 

^ IF ( I INVERSE .OR. JINVER3S .OR. KINVERSE) CALL SNAPINV 

C IF ADD IS SET. DENSE UP POINTS IN THE ADAPTED DIRECTION 

IF (ADD .HE. 0) CALL ADOPTS 
C 

C ir SUB IS SET, DELETE POINTS IN ADAPTION DIRECTION 
^ IF (SUB. HE. Q) CALL SUBFTS 
C REMOVE ANY POINTS rROM OUTER BOUNADRY 


C COMPUTE HUMBER OT PTS IN THE ADAPTIVE SECTION 


ORIGINAL P AGE IS 
OF POOR QUALITY 



C COMPUTE MESH SUE COSSTAB? A 


C ir IQ NOT INPUT. INITIALIZE TO 
C ADAPTION VARIABLE REQUESTED CIHDOIO) 

IF , INDQ. BE . 0) THEN 
OO 50 L-1.1DM+3 
IF,L.EQ. IRDQ) THEN 
IQIL) -1 
ELSE 
IQIL) >0 
EHD IF 

50 CONTINUE 
EKD IF 
C 

C CORRECT MERGE NOS. TO BE ACTUAL VALUE 

irOSCSTEPS.KE.O) NCSTEPS-MCSTEFS+JST 
IF (MCPLS. Nt .0) NCPLS*,GPL3+ffST 
CO TO 250 

210 N CHORE-. TRUE. 

250 CONTINUE 
RETURN 
END 
C 

SUBROUTINE IBTFiri.r2.8I.SMID.HPTS> 


C FI IS A VARIABLE ASSOCIATED KITH THE HID-PT (SMID) Of THE 
C GRID ELEMENT (EC. DERIVATIVES) . THIS SUBROUTINE COMPUTES THE 
C MID- FT Or THE NEW S ARRAY (SI) AHD INTERPOLATES 
C FOR FI. RETURNING IT IN F2 
C 

C CALLED BY: FBAX.SOLUT. LIHE1.CETB 
C 

C CALLS: LACCOF.CSPLIB.SFEVAL 


PARAMETERdd-150. Jd-150.kd-150. im«-150. HDIM-5) 
CCMMON/COU I/HTILT, INTER. MCSTEPS. MCPLS, CEOM, QrUH, NTLAG 
DIMENSION rl(IMX) . T2 (IMX) , SI (XKX) . SMID I MX) 

DIMERSION SM(MX).SPr,MX) 

LOGICAL GEOH.QFUN 

IF (INTER. EQ. 4) CALL CSPLIH (HPTS. SMID, FI , SFF) 

C FIND SEW MIDPOINT Or S AND USE LAGRANGE 
C POLYHOdALS TO INTERPOLATE TOR T2 USING ORIGINAL rl 

DO 100 1-1. HPTS 
ail)-(SllW) ♦Sl(I)) *.5 
ir,INTER.EQ.4> THEN 

CALL SPEVAL (HPTS, SKID. FI .SPF.SM(I) , F2 (I) , DUM1. DCM2) 

r\j$r , 

CALL LAGCOr(SM(I) .SMID, NPTS.M. P1.P2.P)) 

F2 < I) -P1T1 (M) +P2+F1 (M+l) ♦PJ*F1 (M+2) 

END ir 

IF(F2,I> .LE..0) F2 (I) -1 . 0E-05 
100 CONTINUE 
RETURN 


SUBROUTINE INTXYZQIJ, S, J1.K1.83.SN.OJ) 


C GIVEN K.Y. S.Q AT SS. FIND SAME AT SB 
C CALLED BY: PROPS. KARCKJ. MARCHR. UPDATE 


C CALLS: LACCOF. CSPLIN.SPEVAL 


PARAMETER ( id- ISO. jd-150, kd-150. in»-150. NOM-5) 
ceensa/coinxy</B(id, jd. kd) . y (Id. jd. kd> . < ( id. jd.kd) 
c owron /cwng/q ( id. jd. kd, ndi«) 

C Oi>KAI /CCT<( / IMAX, UMAX, SMAX. 1ST. IEND. J5T, JEND , KST, REND. SIFTS 
COtMON/COli/XJ (MX. 3 . J) . YJ ( oa. 1. 3) . E J (IMX. J. |) 
C«M0N/C0M11/NTILT, INTER. MCSTEPS. MCPLS. CEOM. QTUN HTLAC 

^^•«‘»*^niMX).X2,MX),Y2(MX;,Z2(IIOC) 

^MX).SPFY(MX).SPrKM*).SPr 0 (M*.«DIM) 

OMENS ION Q1 ( MX. mitt) . QJ ( IMX. BDM) , S3 ( IMX) . SN ( MX) 

LOGICAL GECM.QFUN 
C 

C rim SPLINE COETrs IF SPLINE INTERPOLATION 

IF ( INTER. EQ. 4) THEN 
DO 20 I-1.NIPT3 
XI (I) -X(I3T-1+I, J, K) 

Y1 (I) -Y ( IST-l+I. J, K) 

Z 1 ( I ) -Z ( IST-l+I , J, K) 

DO 20 N-l.NDM 
Ql( I . N) -Q( 1ST- 1+1. J, K. N) 

20 CONTI HUE 

CALL CSPL IN ( NIPT3 , SS. X 1 , SPFX) 

CALL CSPLINtNIPTS, SS. Yl.SFFY) 

CALL CSPL IN ( NIPTS, SS. Z1 , SPFZ) 

DO 30 B-1.N0M 

CALL CSP UN ( NIPTS. SS.Ql(l.N).SPrQ(l.N>) 

30 CONTINUE 

EKD IF 
C 

C INTERPOLATE FOR HEW X.Y.Q AT COMPUTED SN 

DO 100 1-1. NIPTS 
IF (INTER. EQ. 4) THEN 

CALL SPEVAL (NIPTS. SS. XI. SPFX, SN ( I) . X2 (I) .01,02) 

CALL SPEVAL (NIPTS. S3. Yl. SPFY. SN( I) . Y2 ( I) . 01. D2) 

CALL SPEVAL (NIPTS. SS. Zl.SPrZ.SM(I) , Z2 (I) .01,02) 

DO 40 H-1.K0M 
M-IST+I-1 

CALL SPEVAL (NIPTS, S3, Q1 (1, N) ,SPFQ(1, N) . SN (I) 

C QJ(I.N),D1.D2) 

40 CONTINUE 

ELSE 

CALL LACCOF (SM(I) . SS. NIPTS. MS, PI , P2.P3) 

K-M3+IST-1 

X2 (I) -PI *X(M. J, S) +P2*X(M+1, J, K) +P J* X (H+2 , J , K) 

Y2(I)-P1*Y(H. J, E) +P2*Y(M+1, J.K) *P3«Y(K+2. J.K) 

Z2 (I) -PI T,M. J. N) +P2-Z (M+l. J. K) +P3 + Z (M+2. J , K) 

DO SO N-l.HDM 


DO 150 1-3. NIPTS- 1 
XJ(I.J1.K1)-X2(I) 
YJd.Jl,Kl)-Y2(I) 
ZJ<I.J1.K1)-Z2(t) 
CONTINUE 
RETURN 


SUBROUTINE LACCOF (SHEW, SARR. NPTS.M. PI, P2. PJ) 


C CALLED IF INTER-2 OR 1 

C FINDS LAG RAH CE COCTrS (IE. POLYNOMIALS. PI. P2. P3) NEEDED 
C FOR INTERPOLATION (SHEW M.R.T. SARR ARRAY). K IS 
C THE FIRST INDEX TO USE OB THE INTERPOLATED VARIABLE 


PARAHETER(id-150, jd-150.kd-150, ina-150, NDIM-5) 
CON40N/C0M11/NFILT. INTER. MCSTEPS, MCPLS. GEOM.QFUN HTLAC 
DIMENSION SARR(MX) 

LOGICAL GEOM.QFUN 
C 

C IF DATA OUTSIDE RANGE, EXTRAPOLATE 
C 

IF (SNCM.LE .SARR (1) ) THEN 
M— 1 

PI- (SARR (2) -SHEW) / (SARR (2) -SARR (1) ) 

P2-1.0-P1 
P 3-0.0 
CO TO 9M 
END ir 

IF (SHEW. CE. SARR (NPTS) ) THEN 
N-NPTS-1 

P2-( SHEW- SARR ( NTT 8-1) ) / (SARR(BPTS) -SARR(NPTS-l) ) 

Pl-1 -0-P2 
P3-.0 
CO TO 999 
END ir 

LINEAR INTERPOLATION 

IFdBTER.EQ.2) THEN 
DO 20 I— 1. HPTS 

inSNEN.GT.SARR, 1 , .AND. SHEW .LE -SARRd+1) ) THEN 

PI- (SARR (M+l (-SKEW) / (SARR (M+l) -SARR(M) ) 

P2-1.0-P1 
P3-.0 
CO TO 999 
EHD IF 

0 CONTINUE 
EHD ir 


C 3 PI INTERPOLATION 
C 

IT (SHEW.LB.SARRI2) , THEN 
M-l 

DSARR-SARR 12 ) -SARR, 1) 

PI -(SARR (2) -SNEW) /DSARR 
P2 - (SNEW-SARRd) ) /DSARR 
P3-.0 
CO TO 999 
END ir 

ir (SNEM.CE - SARR (HPTS -1) ) THEN 
M-HPTS-1 

DSARR-SARR (NPTS) -SARR ( HPTS - 1) 

PI - (SARR ( NPTS) -SNEW) /DSARR 
P2-(3HEW-SARR(NPTS-1) , /DSARR 
P3-.0 
GO TO 999 
EHD IT 

DO 100 1—2 , HPT3-2 

IT (SNEW. CE. SARR,I, .AND. SHEM.LT. SARRd + 1), 
C 

C ir IHTER-3. TEST TO SEE IF BACKWARD OR 
C FORWARD DIFFERENCING IS BEST 

IF, SHEW. GT. .5* (SARR( I, +SARR ( 1+1 ) ) > M-I 

51- SARR(M) 

52 - SARR (M+l, 

53- SARR(M+2) 

P 1- (SNEW-S2 ) • (SNEW-S1) / , (S1-S2, * ,S1 -S3, ) 
P2- (SKEW-SI, * (SNEW-S3, /( (S2-S1, * (S2-SJ) , 
P3- (SNEW-S2) * (SWEW-S1) /, ,33-31, * (S3-S2, , 

CO TO 999 
EHD IF 

100 CONTINUE 
999 CONTINUE 
RETURN 


I ADAPTS THE FIRST LINE ON THE FIRST PLANE 
: USING A 1-0 TECHNIQUE 


I CALLS: EDCEMC.GETWT.INTT. WEDGE. FILTER. NORM 


PARAMETER, id-150, jd-150. kd-150, lra-150, NDM-5) 

COMON/COMl/T (MX, . rS , IMX, . WEIGHT, IMX) .A.B.WDS. WOE 
CCMKOB /COM 3/39 , MX) , SMS (MX) , DS, IMX) , SN(IMX) ,SNW,MX) S(WK(MX) 
COMMOH/C0H4/IMAX, UMAX. KMAX, 1ST . IEND. J ST. JEND. KST, TO HD ! NUTS 
COMMON /COKI/DSMAX, DSHIN , W ( MX) . DLENCS, DLENCE, WDSS, WDES 
COMMON /COM 9/S P (MX) , SPPL(MX) . DAP (MX, , DAPPL (MX) . 

C HEDGE. MCI. KG2 

CCMMOB/COMll/KFILT. INTER. MCSTEPS, MCPLS, CE<M, QFUN, NFLAC 
CCKMON/CMdS/CONV, KAXITS. HOOP. LN3INC. PLSIRC, BK1 
DIMENSION SW , MX) . SNBE3T , IMX) . WBEST , IMX) . DSBEST ( IMX) 

LOGICAL GE CM. QFUN, NO UP 
INTECER PLSINC 







PARAMETER! id-15 0, jd-150, kd-150. ima-150, NDIK-5) 

caewon/ccowy*/* (id, jd.kd) .y( id. jd.kd) .* (id. jd.kd) 

cooTOn/ooraq/qlid, jd.kd. fldim) 

<n0t> * SKall “° * DSOKX) .30 (MX) . SIM IDOC) ,SNMK ( MX) 
C aaP B/CdM/DCAX. JHM. KMAX, 1ST, I END. JST .JEND. KST. KEND, HIPT3 
c®*kin/c®<15/conv. maxits, nocp. LHSIHC. PLSINC. 8X1 
LOGICAL NOOP 
INTEGER PL3IBG 
C 

C IP SINGULAR LINS. STORE DATA FROM LISE 1. PLANE 1 


AND. K. HE. KST) THEN 


IF (LNSINC.EQ. JST 
DO 100 I-1.MIPT3 
L-H-IST-1 

X|L. J, K) -X(L, JST. KST) 

ra.J. kj-t(l. jst.kst) 

Z (L. J, K) -X (L. JST. KST) 

DO 100 B-l, HDM 
OIL. J . K. H) -Q (L, JST, KST . H) 
com HOE 
end ir 

SBM(l)-.0 
DO 150 1-1, HIPTS-1 
L-I+IST-1 

D33-SQRT< (X(L+1. J, K) -X(l, J. K) ) *»2+ 
C (Y(L+1.J.K)-Y(L,J.K))**2 + 

C (Z(L+1,J,K)-Z(L,J. K) ) ••2) 

SNM(I+1) «Sltm)+0S3 
COST I HUE 
RETCRH 
END 

SOB ROOT I HE NORM (rl.HPTS) 


C THIS SUBROUTINE RECEIVES VARIABLE FI. NORMALISES 
C IT AND RETURNS IT IH FI. THERE ARE HPTS IN FI ARRAY. 
C ir FI 'INPOT' IS CONSTANT. DON'T NORMALISE. 


C CALLED BY: THAR. LINE 1. SOLOT 
C 

C CALLS: BO HE 


PARAMETER (id-150, jd-150, kd-150, ima-150, NDIM-5) 
DIMENSION FI ( IMX) . F2 I I MX) 


C FIND MAX AND MIN F, AND NORMALISE 
C 

rniH-ri(i) 

FMAX-rl(l) 

DO 100 1-2, HPTS 
IF(F1(I) .C7.FMAX) FMAX-Fl(I) 
IFIPl(I) .LT.FMIN) FMIN-Tl(I) 
100 CONTI HUE 
C 

C CHECK TOR CONSTANT FLONFIELO 


300 


EPS-1. 0E-04 

ir (AB3 (FMAX-rMINl .LT.EP3) ntAX-fHIH 
DO 200 I-1.N7TS 

IF (FHAX.E0- FMIN .OR. FI (I) .EG-FMIH) THEM 
F2 (D-1.0E-05 
ELSE 

F2 ( I) -(FI ( I) -FMIN) / IFMAX-FMI5) 
F2(I)^IAX(r2(I).1.0E-05) 

END IF 
CONTINUE 
DO 300 I-l.NPTS 
rl(I)-T2(I) 

CONTINUE 

RETURN 


SUBROUTINE HOIWPT (IP. J7.KP. INDPl.PA.PB.FC.SINC) 


C THIS ROUTINE TAKES A POINT. (IP.JP.KP) AND A PLANE rmpi 
C AND riNDS THE NORMAL VECTOR TO THE PLANE AT THAT POINT 
C THIS REQUIRES riHDIWC THE NORMAL TO THE 4 PLANES SURROUNDING 
C THE POINT, PT3 SURROUNDING A ARE B.C.D.E 

C I HD PL TOR IK7 LABE-1, I J7 LABE-2 

CALLED BY: SETOJP. SETPKP 
C 

CALLS: UNITV, PURPLE, ADDV 


PARAMETER (id- ISO. jd-150, kd-lSO. ima-150, NDIM-5) 
CCMMON/CGM4/IMAX, JMAX. KMAX, 1ST. I END, JST, JEND . KST, KEND NIP 75 
CCWMON/COM./XJ (MX. 3 . 3) . YJ < IMX. J) , Z J (i«X. 3 i H 

L^r^'^ 7 ’ 11 * IB ** tKS7tn - MCPLS.CE®!. QTUN. WUC 

LOGICAL CECM.QFUB 

SINC-.O 

XA-XJ( IP.JP.KP) 

YA-YJ (IP.JP.KP) 

ZA-ZJ( IP.JP.KP) 

IF(IHDPL.EQ.l) THEN 
XB-XJ(IP+1.JP.KP) 

YB-YJ(IP+1, JP.KP) 

ZB«ZJ(IP+1, JP.KP) 

XC-XJIIP. JP.KP+l) 

YC-YJIIP. JP, KP+1) 

ZC-EJ(IP, JP.KP+l) 

XD-XJ (If- 1, JP.KP) 

YD-YJ (IP- 1. JP.KP) 

ZD-ZJ (IP- 1, JP.KP) 

XE-XJ (IP. JP.KP- 1) 

YE-YJ (IP, JP.KP- 1) 

ZE-ZJdP, JP.KP-l) 

END IF 

IT ( IKDPl . EQ.2) THEN 
XB-XJ(IP. JP+l.KP) 

YB-YJ ( IP, JP+l.KP) 

ZB-ZJ (IP, JP+l.KP) 

XC-XJdP+1, JP.KP) 

YC-YJ(IP+1, JP.KP) 

ZC-ZJdP+1, JP.KP) 


XD-XJ{IP, JP-l.KP) 

YD-YJ(IP.JP-I.KP) 

ZD-ZJ (IP, JP-l.KP) 

XE-XJ (I P-1. JP.KP) 

YE-YJ(IP-1,JP. KP) 

ZE-ZJI IP-1. JP.KP) 

END IF 
C 

C FIND UNIT VECTORS BETWEEN A AND OTHER POINTS 

IF (XB .EQ . 999.0) THEN 
XAS-.O 
YAB-.O 
ZAB-.O 
ELSE 

CALL UNITVOtA, YA, ZA. XB. YB, ZB. XAB. YAB, ZAB) 
END IF 

IF(XC.EQ. 399.0) THEN 
XAC-.O 
YAC-.O 
ZAC-.O 
ELSE 

CALL UNITVOtA. YA.ZA.XC.YC. EC. XAC, YAC. ZAC) 
END ir 

IF (XD.EQ. 999.0) THEN 
XDA-.O 
YDA-.O 
ZDA-.O 
ELSE 

CALL UNITY (XD, YD. ZD. XA, Y*. ZA. XDA. YDA. ZDA) 
END IF 

IFIXE.EQ. 999.0) THEN 
XEA-.O 
YEA-.O 
ZEA-.O 
ELSE 


C FIND NORMAL TO EACH PLANE 

C 

CALL PURPLE I XAC. TAC. ZAC. XAB, YAB, ZAB . S1A, SIB. S 1C. NFLAC) 
CALL PURPLE (XAC. YAC. ZAC. XDA. YDA. ZDA.S2A. S2B, S2C. NFLAG) 
CALL PURPLE ( XEA. YEA. ZEA, XDA, YDA. IDA, S3A, S3B . S 3C NFLAC) 
c CALL PURPLE (XEA. YEA. ZEA. XAB, YAB. ZAB, S4A.34B.34C. NFLAC) 

C AVERAGE THE NORMALS 
C 

CALL ADDVtSlA.SlB.81C, 1.0.S2A.S2B.S2C, 1 .0. S12A.S128 S12C) 
CALL ADDV(S3A,838. S3C, 1.0.S4A. 84B.84C.1.0,334A.334 b! 334C) 
CALL ADDV(S 12A. SUB. S12C. 1.0, S34A. S34B, S34C. 1 .0. PA. PB. PC) 
TST-PA*»2+fB**2+PC“2 
IFITST.LT.. 9) SINC-1.0 
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SUBROUTINE OUTPUT ( RADS) 


C CALLED BY: MAIN 
ic CALLS: MARCKK, SWAPINV, SWAPXYZ 


PARAMETER! id-150, jd-150 , kd-150, im-150. NDZM-S) 
common /cora«yt/*( id. jd.kd). y (id. jd.kd) ,«(id. id kd) 

common /coraqAj (1 d , j d . k d , nd im) 

CCKMON/COH/IMAX, JMAX, KMAX. 1ST, TEND. JST. JEND. KST KEND NIPTS 
COMON/C®,12/rSKACH. ALPHA. RE. TIME. NdC.ilTQ 

co^ ^ ? ' KSTEP ’ nKVERSE ' JINVERSE - K 1 NVERSC ' TW0 ° 

^ ’ IKPLW,C ' JKPUUfE. MARCH. KARCHPL. SAVE. OK 

I3TEP - J:rTCP ’ CP. 1 INVERSE . J INVERSE. KINVERSE , TWOO 

LOGICAL ^^ NE ' 1 KPLANE , JKPLANE , MARCH . MARCHPL , SAVE, OK 

ch* cactar *50 string 

I' R£Q0IR£D AT ADAPTED POINTS (MARCH -7) 

IC INTERPOLATE TOR HEN X.Y. Q AT REMAINING K PLANES 


IDMARCHPL.AMD.KEND.LT. KMAX) CALL MARCHK 


C THIS ROUTINE RE -SWAPS THE X.Y AND Q DATA 
C (MARCHES ir REQUESTED ON INPUT) 

C AND THEN OUT POTS IN A FORMAT FOR PLOT 3D - 
C UNIT NtMBERS DEPEND ON NUMBER Of PASSES 


C IF NECESSARY. RE-INVERT ARRAYS (EC. 1 THRU N BECOMES H THRU 1) 
C IT STEPPING IN I, X AND Y DATA NEEDS TO BE 3 NAPPED 

ID I INVERSE .OR. J INVERSE . OR. K INVERSE) CALL SNAPINV 
RSXAP-.TRUE. 

» ““•»««« <««» 

|c COMPUTE UNIT NUMBERS 

IF (RADS.EQ. 1) THEN 
NITC-t 
NITQ-9 
END ir 

IF (.NOT. OK .OR. SAVE) THEN 
NITC-NITC+2 
NITQ-NITQ+2 

C OUTPUT ADAPTED GRID AND FLOMFIELO 

CALL KRITOOT 
END IF 
ID OK) thon 
WRITE (t, 1000) NADS 
•need* (50, 1000. string) nods 
0 FORMAT!' ADAPTION M2.' COMPLETE') 

C«ll warning (at ring) 

• la* 

•n cod* (50. 1010, string) 

FORMAT!’ ADAPTION DID NOT COMPLETE') 
call warning (string) 

•ndif 
CONTINUE 
RETURN 


SUBROUTINE PROPS (J.K) 










DO 400 X-l.MAX 
DO 400 J-l.JMAX 
DO 400 I-l.KKAX 
X(X, J. K)-Z7(K. J. I) 

yii.j.k)-y7Ck.j.i) 

id, j. k) - rr (K.J, i) 

comtinue 

DO 440 M-1.KDHI 
DO 420 K-l.KMAX 
DO 420 J-l.JKAX 
DO 420 I-1.DIAX 
XT(I. J.KX(I.J.K.H) 

COMTINUE 
DO 4)0 K-l.IMAX 
DO 4)0 J-l.JMAX 
DO 4)0 I-l.KHAX 
Q(I. J. K, N) -XT (K.J, I) 

COST IB 0B 
COST I HUE 
XMAX-DIAXT 
KMAX-MAXT 
IST-KSTT 
IEND -KE NOT 
KST-ISTT 
KEHD-IENDT 
END IF 

IF (IKPLAME .AND . I STEP .AND. .NOT. RSXAP .OR. 
C JK PLANE. AND. ICSTEP. AND. RSMAP) THEN 

DO 450 K-l.JMAX 
DO 450 J-l.IHAX 
DO 450 I-l.KKAX 
X(I,J, K)-ZT(J.K, X) 

Yd.J.in-rMJ.R, X) 

Z (I, J. K) -YT(J, K, X) 

CONTINUE 

DO 490 N-l.NDXM 
DO 4(0 K-l.KMAX 
DO 4(0 J-l.JMAX 
DO 4(0 1-1, DtAX 
XT(I. J.K)*>(I.J,K.N> 

CONTINUE 
DO 4*0 K-l.JMAX 
DO 4*0 J-l.MAX 
DO 4*0 I-l.KHAX 
Q(I,J.K,N} -XT(J.K.I) 

CONTINUE 
CONTINUE 
IMAX-KHAXI 
JMAX-IMAX3 
KMAX-JMAXT 
IST-KSTT 
IEND-KEKDT 
JST-ISTT 
JEND-IEHDT 
KST-JSTT 
KEND-JENDT 
END IF 

IT ( JKPLAXE .AND. K STEP. AND. .NOT. RSMAP .OR. 
C I CP LAKE .AND. I STEP. AND. RSMAP) THEN 

DO 500 K-l.IMAX 

DO 500 J-l.KMAX 

DO 500 I-l.JMAX 

XII.J. K)-YT(K.I.J) 

YII.J, R)-rT(K.I.J) 


Z(X, J.K) «rj (K.X.J) 
CONTINUE 
DO 540 N-1.KDHI 
DO 520 K-l.KHAX 
DO 520 J-l.JMAX 
00 520 I— 1, DtAX 
XTII.J.n-QU.J.R.m 
CONTINUE 
DO 5)0 K-l.XMAX 
DO 5)0 J-l.KHAX 
DO 530 I-l.JHAX 
Q(I, J, K, N) -XT (K, I , J) 
CONTINUE 
CONTINUE 
MAX— JHAXT 
JKAX-KHAXT 
KMAX-MAXT 
IST-JSTT 
IEND-JENDT 
JST-KSTT 
JE8D-KESDT 
KST-ISTT 
KEND-IENDT 
END IF 
RETURN 


SUBROUTINE SMAP2D(I0) 


C ir 2-D DATASETS. TURN INTO SINGLE PLANE 3-D DATASET 
C 

CALLED BY; INITIAL. OUT? ITT 


PARAMETER (Id- 150. jd-150. kd-150 , ira-150. HDDt-5) 

ccrnion /comxyi/«(id, jd.kd) .y (id, jd, ltd) , * (id, jd.kd) 
cotnuon/cotnq/q (id. jd, kd, ndin) 

COMMON /C(M4 / IMAX. JMAX. KMAX. 1ST. IEND, JST, JEHD , AST. KEKD, NIPTS 
COMMON /COM 1 )/ ISTEP. JSTEP. KSTEP, I INVERSE. J INVERSE, K INVERSE, 7M0D 
LOGICAL ISTEP.JSTEP. KSTEP. I INVERSE. J I HVE RSE. K INVERSE. TMOO 
C 

C ON INPUT. HOVE Q4 TO 05 ETC 
C 

IF (IO. C0> 1) THEN 
KMAX-1 
KEND-1 

IF ( .NOT . JSTEP) I STEP” -TRUE . 

DO 100 I-l.IMAX 
DO 100 J-l.JMAX 
Z(X.J.1)*.0 
DO 50 N-NDIM. 5. -1 
Q(I,J.l.N)^(I,J.l.M-l) 

50 CONTINUE 

Oil. J. 1, 4) -0.0 
100 CONTINUE 
END IF 
C 

C OH OUTPUT. MOVE QS TO 04 ETC 
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IF ( 10. CQ .2) THEN 
DO 200 I-l.MAX 
DO 200 J-l.JMAX 
DO 200 N-4.HDXM-1 
Od. J. l.N)-0(I.J.l.N+l) 
CONTINUE 
END IF 
RETURN 


SUBROUTINE TORCOT (l.JK.JXST, JKEHD, NCN03 .MARCH JK) 


Z. 4 &.M 


IF (.NOT. MARCH JK) THEN 
IF (ORTHE) THEN 
I F ( JK . £Q , JKEHD- 2 ) THEN 
CLAKM(L) -2 . 0*CLAM (L) 

END ir 

IF (JK.EO . JKEND- 1) THEN 
CLAMM(L) —5 .0*CLAM (L) 

TIW (L) — TM(L) ♦( 1 .0-TN (L) ) /) .0 
CM (L) -.5*C7 (L) 

END IF 

IFIJX.EQ. JKEHD) THEN 
CLAMM (L) — 10 . 0*CLAM (L) 

TIM |L) -TN(L) ♦ ( 1 . 0-TN (L) ) *2 . 0/3 . 0 
CM (L) - .25*CT(L) 

END IF 


SUBROUTINE TORSION (J.K) 


PARAMETER (id-150, jd-150. kd-150. ira-150. NDIM-5) 

CCPHON/CCMl 0/CLAM 12) ,CT (2) ,TN(2) . CNM(2) , CLAKM (2) .CM (2) , TIM (2) 

CO*WON/CCH15/CONV. MAXITS. NOOP, LN3ING, PLSING. BK1 

COMMON/C GM1 (/ORTHS . ORTHE 

LOGICAL KARCHJX.NOUP. ORTHS. ORTHE 

INTEGER PLSING 


C THIS ROUTINE F IND3 BOTH T (TORSION) VECTORS 
C AS A FUNCTION Of VECTORS U. B AND E. 

C AND HENCE S' FOR J-l.K AND S* TOR J.K-1. 

C REQUIRED IN THE SOLUTION EQUATION. 


CLAMM (L) -CLAM(L) 

CIHILKTI1I 
TtM(L) -TN (L) 

CMILI -.0 

IFIJX.LT .HCN03) THEN 
CtM(L) -TLOAT (KCNOS-JK) /FLOAT (MCNOS-JKST) 
CLAMM (L) -CLAM ( L) • (1 .0+CNM (L) *5 . 0) 

ELSE 

IF (ORTHS) THEN 
IF ( JK. EQ. 2) THEM 
TNMID-.O 
CTM(L)-.2S*CT(LI 
CLAMM (L) -CLAM(L) *10. 

END ir 

IF(JK.EQ. 3) THEN 
TSM(L)-.5*TN(D 
CLAMM (L) -CLAM (L) *3.0 
CTM(L) -.5*CT (L) 

END IP 


PARAMETER) id-150, jd-150 . kd- 150. im-150, NDIM-5) 

COMMON /COM 3/SS ( MX) , SMS ( MX) , DS < IMX) , SN ( MX) , SNM ( MX) . SNMK ( MX) 
COMMON /C0M4/ IMAX. JMAX. KMAX, 1ST. IEND, JST, JEND . KST, KEND. NIPTS 
COMMON /COM 7 /COSE (MX, 3) , COSO (IMX, 3) . COSB I MX , 3) 
COKMON/COHB/XJtWX. 3.3) ,YJ(MX.3, 3) . ZJdMX. 3.3) 

COMMON /COM 9 /S? ( MX) . SPPL ( MX) . DAP (IMX) . DAPPL (MX) . 

C NEDCE.MC1.KG2 

COMMON /C0M10/CLAM (2) . CT (2) . TR(2) .CNN (2) , CLAMM (2 ) , CTM (2) . TtM (2) 
COMMON /COM 11 /NT ILT. INTER. KCSTEP3, MCPLS, CEOM. QFUN, NT LAC 
COMMON /C0M20/COSEK (IMX. 3) ,COSOK(MX, 3} .COSBK (MX. 3) 

DIMENSION AAP (MX) , I CROSS ( IKX) , COSB IK ( MX, 3) 

DMEHS ION COST (MX. 3) .C03B1 (MX, 3) , DUX2 ( IKX) .COSH (IMX. 3) 

LOGICAL CEOM. QFUN 
C 

C FIND INDEX OF DS INTERVAL THAT INTERSECTS EACH COSB 
C 

DO (0 I— 1, NIPTS- 1 
DO 50 M-1.3 
COSBl(I.M) -COSB d. M) 

COSBlKd.MXOSBK(I.M) 

50 CONTINUE 

(0 CONTINUE 

irlJ.CO.JST) THEN 
DO 100 I-l. NIPTS 
SPID-.O 
100 CONTINUE 

ELSE 

CALL CROSSV(XJ(l,2.2). YJd.2.2) ,ZJ(1.2.2) . 
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DIMENSION SPSX { DOO , SPSY ( Q€X) 

DIKEH3IOS XKALLSIIMX) . YMALLS (DfX) 

C 

C STORE MALL COORD I HATES IS SIBCLE DU ARRAYS 
C 

DO 25 1-1, BIPTS 
XKALLS(I) -X (137*1 + 1, JK. 5) 

YKALLS (I) - Y I 1ST- 1 +1. JW. K) 

25 CONTINUE 

C 

c riHD SS ARRAY AT BOTH BOUNDARIES 
C 

sssm-.o 

DO 50 I-l.HIPTS-1 
L-IST+I-1 

D33( I) -3QRT( (X (L+X, JW. K) -X(L, JW.K) ) **2t 
C (Y (L+l, JW, K) — Y (l, JW, K) ) •*2+' 

C U(L+l.JW.K)-m,JW.K}) »2) 

SS3 tl+H -SSS (I) -OSS (I) 

50 CONTINUE 

C 

C FIHD MID-PT3 TOR INTERPOLATION R0U7INE 

c 

DO 70 I-l.SIPTS-I 
SHS3 (I) - (SSS (1-1) +SS3(I>>*-5 
70 CONTINUE 

c 

c find spline coerrs 
c 

CALL CSPLIB (BIPTS, SSS , XXALLS , SPSX) 

CALL CSPLIB (BIPTS, SSS, YXALL3. SPSY) 

C 

C OBTAIN DERIVATIVES FOR RADIUS CT CURVATURE 
C 

DO 100 I— 1 , MIPTS-1 

CALL SPEVALINIPTS. SSS. XXALLS. SPSX. SSS (I) . XI, XPI.XPPI) 
CALL SPEVAL (BIPTS. SSS. TXALLS. SPSY. SSS ( I), YI. YPI. YFPI) 
FCS( I) -AB3 (XPI *YFPI-YPI*XPPI) /(XPI* , 2+YPI**2) **1 .5 
100 CONTINUE 
C 

C FIHD LOCATION OP KAX re FOR ASPECT RATIO CALCULATIOH 

c 

MXFG-2 

DO 200 1-3. NIPTS-1 
irjFcsd) .cT.rcs(Kxro) mxtc-i 
200 CONTINUE 
RETURN 
END 
C 

SUBROUTINE HR I TOOT 
C 

C 

C THIS ROUTINE WRITES OUT THE DATASETS 

C AND RESTORES 2-D DATASETS TO THEIR ORIGINAL FOM 

C 

CALLED BY OUTPUT 
C 

CALLS: NOSE 
C 

c 

PARAMETER (id-150, jd-150. kd-150, Ibw- 150. NDIM-S) 
cornnon/comsyz/a ( Id, jd, kd) . y ( id. jd. kd) . c (id. jd. kd) 

1!^ 

common /e«nq/q ( id. jd. kd. ndim) 

CMMON/CCBH/IMAX. JMAX. KMAX. 1ST. IEND. JST, JEND. K3T, EE HD, SIFTS 
CO(M0M/CQI12/r9tACtl, ALPHA. RE, TIME. NrrC.NITQ 

CCMM0N/CCM13/ISTEP. JSTCP.KSTCP. I INVERSE, J INVERSE, K INVERSE. TXOO 
LOGICAL ISTEP. J3TEP, ESTEP, I INVERSE. J1HVERSE. EINVERSE.TMOO 
ir (.HOT. TMOO) THEN 
WRITE (NITC) IMAX. JMAX, KMAX 

WRITE (NITC) ( ( (X (I. J. K) , 1-1. IMAX) . J-l. JMAX) , K-l , KMAX) . 

C (((YU. J.E).I-1.IKAX> , J-l. JMAX) ,E-1, KMAX) . 

C llltd. J,E),I-1.IHAX) , J-l. JMAX) ,E-1. KMAX) 

WRITE (BITQ) IMAX. JMAX. EMAX 

WRITE (NITC) FSKACH. ALPHA, RE. TIME 

WRITE (BITQ) ((((OU.J.K.H) .1-1. WAX) .J-l. JMAX) , 

C K-l, UMAX) , H-l. KDDt) 

ELSE 

WRITE (NITC) WAX. JMAX 

WRITE (NITC) ((X(I.J.l) .1-1. IMAX) . J-l. JMAX), 

C ((Y(I.J.l) .1-1. WAX) , J-l. JMAX) 

WRITE (BITQ) WAX. JMAX 

WRITE (BITQ) rSMACH.ALPHA.RE. TIME 

WRITE (BITQ) (( (Q(I. J.l.HI.I-l. WAX). J-l. JMAX). B-1,HDIM-1> 

end ir 

END 

C 

SUBROUTINE WTEDCE ( J. K) 

C 

C 

C THIS ROUTINE TRIES TO ENFORCE THE EDGE WEIGHTING rUBCTIOH 
C TO BE A FUNCTION OF DLENGS, DLENCE. TO PROVIDE BETTER 
C CONTINUITY BY OVERRIDING TB (MATCH FOR SINGULAR LINE: 

C KDE.MDS NEED TO BE SAME ON NEXT LINE) 

C 

C CALLED BY: MAIN.LIHEl 
C 

C CALLS: OLENC 
C 

c 

PARAMETER ( id-150, jd-150. kd-150. im-150,NDDf-5) 

COMMON /C0M2 /r (IMX) . FB ( IKX) . WEIGHT ( IMX) . A, B. WDS. MDE 
CCMMON/C(M3/SS ( IMX) , SMS ( DOO , OS ( IMX) , SB ( IMX) , SNM (IMX) . SIWK ( IMX) 

CCMMON/CCM4/IMAX. JMAX. KMAX. 1ST . IEND. JST, JEND, ICS T. KEND. NIPTS 
COMMON /COM t/DSMAX, DSKIN.HT ( IMX) . DLENGS. DLENCE, WDSS. WDES 
COMMON /COM IS/ COWV.MAXITS.no UP. L NS INC. PLSIMG. BX1 
LOGICAL SOUP 
INTEGER PLSINC 
IF ( J.EQ. JEND) THEN 
WDS- . 0 
WOE-.O 
GO TO 900 
END ir 

IF ( J . BE . 0 .AND. LNSING.EQ.J .AND. K.NE.KST) THEN 
WDE-MDES 
WDS-MD33 
GO TO 900 
END IF 
C 

C DETERMINE FUNCTION OT OLENC TOR NEXT J LINE 
C 

CALL DLENG (J+l, K) 

C 

C FIND AVERAGE 03*W FOR INTERNAL POINTS 




sag 

eri . J 

C 

write ( C, 102) kat. kand 

WTSOM-.O 

102 format Ckat - ',15,", kand - ".15) 

DO 100 1*5. NIPTS-5 

write (t, 103) istnp, jatap, katap 

wisum-ttsum-cs in •xEiorrdJ 

103 format ("iatap - ’.1.’, jatap - ".1.", katap - *.l) 

100 CONTINUE 

writalC, 104) ijplana, jkplana. Ikplana 

WTSCM-WTSUH/ (BIPTS-9) 

104 format ("ijplana - ".1.". jkplana - ".l.". ikplana - ", 1) 

C 

write (6, 105) rdamex, rdemin 

C AT 1ST (PREVENT tfl>3 rRCM BEING TOO LARGE 

105 format ("rdamu* • ",fl0.5. ", rdemin - ",fl0.5) 

C WHEN DLENGS IS VERY SMALL) 

writalC. 10C) clam (1) , clam{2) 

C 

10C format ("deal 1) -«,fl0.5.". clem<2) -".flO.S) 

NDS-WTSUM/DLENC3 

wr ita(C. 107) nadgo 

WDMAX-(1.0+A)*10.0 

107 format ("cadge - *.i5) 

IF (WD3.CT. KOMAX) WD3-MDKAX 

wrlto(C.lOI) 0 .( 11 . ct (2) 

C 

101 format ("ct (1) - ".flO.S.". ct (2) - ", flO.S) 

C AT IEND 

write (6. 109) mgatapa. mgple 

C 

109 format < "mgatapa - “. iS. ", mgple - ".15) 

WDE-WTSUM/DLENCE 

wxlta(C, 110) lnaing. plelng 

IT (MDE.GT.MOMAX) WDE-WOMAX 

110 format ("lnaing - ",15,", plalng - ’,15) 

ir(LNSING.EQ.J.ASD.B.EQ-KST) THEN 

writalC, 111) indq 

MDES-NDE 

111 format ("indq - ".15) 

HDSS-ND3 

write (C, 112) noup 

END IF 

112 format ("noup - ". 1) 

900 CONTINUE 

writa(C.U3) march, marchpl 

RETURN 

113 format ("march - ".1.", marchpl - ’,1) 

END 

writ# (C. 114) add. latadd, landadd 


114 format ("add - ".15.". latadd - ",15.". landadd - *,15) 


write (C. 115) tub. lataub. lonanb 


US format ("aub - *,15.". lataub - ",15,". lendaub - *,15) 

eubrout ine pi iVor ( ) 

write (6, lit) neve 


UC format ("eaoa - 1) 

c ch*ck variable initialization 

write) 6. 117) orthe, ortha 


117 format ("orthe - ".1,", ortho ■ ",1) 

parameter (id-150, jd-150, kd-150. lmi» 150, n dim-5) 

writa(C, lit) nfilt 

comon/comyi /* (Id. jd, kd) . y ( id. jd. kd) . t (id, jd . kd) 

111 format ("nfilt - ’,15) 

eomnen/eamq/q(ld, jd, kd, ndim) 

write (C. 119) goon 

coer»n/c«n2/f (inut) . fb(i«*) .weight (inn) .a. b. wda. wda 

119 format ("gaom - ", 1) 

common /corn)/ a aUna) , snalitn*) ,de(im*) , an lima) . iron (in*) , innk(lza) 

write (C, 120) qfun 

eocnnon/ccad /imo*. jmo*. kmo*. irt, land, jat . jand, kat. kand.nlpta 

120 format ("qfun - ", 1) 

corrnon/coe6/rdamax, rdemin , indq, iq (ndim- 3) 

wx ito(C. 12 1) inter 

catrmon/coejS/dirani, damin, wt (lm>) . dlonga. dlonga, wda a. wdee 

121 format ("Inter - *.15) 

cocmon/cotoT /conUmx, 3) .coau dm. 3) . coab(im*. 3) 

write (C. 122) twod 

cocinon/comB/xj dm. 3. 3) . y j dm*. 3, 3) . ijlljna, J. 3) 

122 format ("twod - ".1) 

cocmon/con9/ip ( im*) . appl (in) .dap(imx) . dappl (im*) , 

writalC. 123) ok 

e nadga.mgl.mg2 

12 3 format ("ok - ".1) 

cantnan/coml0/clam(2) ,ct(2),fen(2) ,cnm(2) .clam (2) , ctm(2) ,trua(2) 

write (C. 124) fqw. fgw 

cooman/comll/nf lit . intar, mgatapa.mgpla, gaoavqfun. nflag 

124 format ("fqw - -.flO.S. ", fgw - ".flO.S) 

coeron/coml2/fa«a«h, alpha, ra.tima.oltg. nit q 

writalC. 125) ilnverae, j invar ae, kinvaraa 

cocirnon/coaill/iatap, jatap, katap, 1 invar aa, jlnvorae. kinvarea, twod 

125 format ("ilnvarea - *.l.*, jinvoree - ".1.*. kinvaraa - ", 1) 

cormon/comli/i jplano, ikplana, jkplana. march, mo rchpl. ian. ok 

writalC, 12C) tn(l). tn<2) 

coaa»n/ceenlS/conv.ma*it*. neap. Inning, pining, bkl 

12C format ("tnll) -".fl0.5.*. tn(2) - ".flO.S) 

coairon/ceaal C/ortha , art ha 

writalC. 127) conv 

eo«n»n/ce«al7/fq lint) , Cg(im) , fga (im*) , am* a dm*) .raxfg , fgw. fqw 

127 format I" conv - ".fl0.5) 

cacimn/conl t/aub, lataab, landaab 

writalC. 120 mgl, mg2 

ceoaaon/ccal 9/add. 1 at add. landadd 

lJff format ("mgl - ",i5,". mg2 - ".15) 

cenmn/cen]0/caiak dm, 3) , coauk dm, 3) . coabkdm, 3) 

writalC. 129} me*ite 

logical gaom.qfun.noap.orth*. ortho. neewto 

129 format ("me ait a - ",iS) 

logical iatap, jatap, katap, llnvarea, j invar aa.k inoar aa.t wad 

writalC, 130} nflag 

logical i jplano, ikplana, jkplana, awreh. marchpl. aavo, ok 

130 format ("nflag - *.15) 

intogor add, anb.pl aing 

writalC. 131) wdi, wda 


131 format ("wda - ".flO.S.". wda - ".flO.S) 

write (f, 100) lot. land 


100 fornmt (" let - -.15.*. land - -.15) 

return 

write (C, 101) jot. jand 

and 

101 format ("j*t - ’.IS.*. jand * -.15) 
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/•- 


IHCLUDES 


V 


lino lad* 
lino lad* 
I include 
lino lud* 
line lud* 
line lud# 
lino lud* 
line lad* 
lino lad* 
•lnolud* 
Unclad* 
lino lad* 
Unclad* 
linclud* 
line lud* 
lino lad* 
lino lad* 
lino lad* 
line lad* 


<*tdio.b> /* 

<atdlib.h> /* 

<atring.h> /* 

<ctypa.h> /* 

<mnt h . h> /• 

<fld_p«n.h> /• 

<p*n#l_util* .h> /• 

< fast _cmap.h> /• 

<Object.h> /* 

<f rid_aor fac* .h>/* 

< f*«t_*rror . h> /• 
<faat_momory.h> /• 

<fld_Tlat.h> /• 

<1*t d4ti.h> /• 
<fa*t_cra*p.h> /* 
<Modula.h> (• 

<Vi* M I.h> /• 

' .agar Support .b'/* 


for HULL otc. 
for atoll) 
for it ring .tuff 
for iadlgitl) *to. 
for atofO 

for CAIDSCALAR VECTCR_TYPE007 

for typ«d*fa and rLOAT_STRI HC_FGRMAT 

for in it_fast_cranp 0 

for 08 JEd_HAME_LE3KTH . *tc. 

for Or id Suxfac* typadaf 

for ERROR!) macro 

for DDDOO and DDOfl () macro. 

for SCALAR, »CM_VARfl *to 

for roq_*<) 

for MAX_SCNAP3 i colormap function, 
for aorlpting atuff 
for locking/gnlocking 
for fnnetion declarations 
for aagarSupport 


V 

*/ 

*/ 

*/ 

•/ 

*/ 

«/ 

*/ 

•/ 

*/ 

•/ 



*/ 


comlS_. pl.ing - PLSIHC_ISI; 
con>5_. indq ■ IHDQ_IHI;” 
comlS_.no op ■ FALSE; 
cornU^ -march - MAACHIHI; 
coral4_.mnrchpl - MARCH PL mij 
comlf_.odd - ADDINI; 
comll_. l.tadd - 0; 
coral l_.l*ndadd - 0; 
comH_..ub • SUBI8I; 

; coral l_ . 1. 1 aob - 0; 
corall_,l*nd.uh - 0; 
cocnl4_.aavo - FALSE; 
coral*_.ortha - 0RTH3IHI; 
coml«_.orth* - ORTHEINI; 
corall_.nfilt - HFILT_I8I; 
corail*. gaora - CE0M_INI; 
corall_.qf un - Qflro”lHI; 
corail”. Intar - INTER III; 
coral3_.ti.od - FALSE; 

/* SET OTHER START VALUES •/ 


void init i*lix*_all_.ag*_p*ramat*r *_to_d*faolt 0 | 

/* Th* following *r* globally d*fin*d oariabl** from SUBROUTINE INITIAL . •/ 
/* SE7 INPUT DEFAULT VALUES •/ 

/* Th* followln variables hao* flxod values for aago: */ 

corall_.i*t*p * FALSE; 
eood)_.jat*p ■ TRUE; 
coral )_.k*t*p - FALSE; 
coral I*. 1 inoor a* - FALSE; 
coral J__. jlnvorao ■ FALSI; 
coral 1 .kinvarse “ FALSE; 
conll” . i jplan* - TRUE; 
coral4_. jkplano - FALSE; 
coral 4_. ikpl*n* “ FALSE; 


coral 4_ . ok » TRUE; 
coral 7_.fqw « 1.0; 
coral7_.fgw • 0.0; 
coral J^.iinvoraa « FALSE; 
coral3~. jinvarse - FALSE; 
coral3”.kinv*rao - FALSE; 
eoral0”.tn (0) - 0.5; 
coral0_.tn(lj * 0.5; 
coral5_.conv ■ 0.001; 

Cora 9 _ . mg 1 * HC 1 IBI; 
cera 4 _.rag 2 « MC 2 IHI; 
coral 5 _.tnaaita • 20 ; 
coral 1 _ .nf lag • 1 ; 
com 2 _.wd» ■ 0 . 0 ; 
cora 2 _.wda ■ 0 . 0 ; 


/• End of flaod oalaoa for sago •/ 

coral_. l.t • 1; 

com4_.i*nd ■ 0/ 

cora4_. jat ■ 1; 

com4_. jand - 0; 

cora4_.kat - 1; 

coral”. kand ■ 0; 

coral 3_. 1 atop - TALSE; 

c«ral 3_. j rtop • TRUE; 

coral 3_.k atop * FALSE; 

coral4_.i jplon* - TRUE; 

coral 4 _. jkplano * FALSE; 

coral 4 .ikplana - FALSE; 

coraS Trdaraa - RDSMAX 1*1; 

cora5~. rd wain * RDSMIN~XBI; 

coral 0 .claratO) - CLAM I III; 

eeadO” .clam(l) - CLAM2~IBI; 

cool Tnodga - HEDGE 1*1; 

coral 0 . ct ( 0 ] - CT1 IHI; 

c oral o” . ct [ 1 ] - CT2”l*I; 

coral 1_. mg. tops ■ MCSTEP3_I*I; 

coral 1 -mgpla * HGPLS IHI; 

coral 5~. losing - LHSlic_IHI; 


Penal 

* pa n o 1 _# a g*_ma 1 n ; 
float 

pon*l_a*g*_a, 
pon*l”aog * _yi 


j 00 id Sag*rPan*l ( p. a, y) 

l?an*l *p; /* Ponal to add actuators to 

float a; /• initial « position of acta 

float y; /• initial y poaltion of acta 

I 

void B*g_adaptpt a (Actuator •> ; 
void B*g_oddpt. (Actuator*) ; 
void B*g_aubpt a (Actuator*) ; 
void B*g”undo (Actuator*) ; 
void B*g_roraovo (Actuator*) ; 
void Int*rglr*_odd (Actuator*) ; 
void Int*rgico_mgatopa (Actuator*) ; 
void Int*igisa_mgpla (Actuator*); 
void Intargiro_*ub (Actuator*) ; 
void Xnt*rgita_n*dga (Actuator*) ; 
void Intarglao*indq (Actuator*) ; 


*/ 

*/ 

•/ 
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void Intergire_n£ilt (Actmtor*) / 

void Intorgi counter (Actuator*) ; 

void Xnterglte'mgl (Actuator*) ; 

void Intergira_mg2 (Actuator*) ; 

void Int erg i retina ing (Actuator*) ; 

void Intergira_plaing (Actuator*) ; 

void Set_coml4_march () ; 

void 3«t_eool4_(aorchpX« i 

void Sot_coral6_ortha () f 

void Sa*_cottlS_orthe() / 

void Sot coral 1_9 oo«bO # 

void Sot_comll_qfan 0 / 

void Set - com5_rdo»e«l) ; 

void Set_com5_rda»in I) t 

void Sot _co tal 0_c loml () I 

void 5ot_coolO_olara2 () ; 

void Sot _comlO_ct 1 0 ; 

void Sot_coral0~ct2 () | 

void Be rt_up_d tract ion (Actuator*) ; 

void Na*t_dn - directioo(Actu*tor*) ; 

void Op_nedge (Actuator*) ; 

void Oown_nedge (Act u* tor*) ; 

void Roa et_nedge (Actuator *) / 

void Op_indq (Actuator •> ; 

void Dovn_indq (Actuator*) ; 

void Boiot_indq (Actuator*) ; 

void Op_mgl (Actuator*) ; 

void Oown_mql (Actuator*) ; 

void Raaet_mgl (Actuator*) ; 

void Cp_mg2 (Actuator*) ; 

void Devn_mg2 (Actuator*) j 

void Reeet_mg2 (Actootor*) / 

void Op_mgatepa (Actootor*) ; 

void Doanjagotepa (Actuator*) ; 

void Reaetjngatapt (Actootor*) ; 

void Op_mgp la (Actuator*) ; 

void Dovnjngpla (Actuator*) ; 

void Raa ot_mgp la (Actuator •) i 

void Pp_nfilt (Actuator*) / 

void Oovn_nfilt (Actuator*) ; 

void Raaet_nfilt (Actootor*) ; 

void 0p_int or (Actuator*) ; 

void Down_inter (Actuator*) ; 

void Roaot_intor (Actuator*) ; 

void Up_lnaing (Actuator*) ; 

void Down_lnaing (Actuator*) ; 

void Roaot_lna Ing (Actuator*) ; 

void Up_pla ing (Actuator*) / 

void Down _pl#ing (Actuator *) / 

void Roaot_pla ing (Actuator*) ; 

void Op_odd (Actuator*) ; 

void Oovn_odd (Actuator*) ; 

void Raaot add (Actootor*) j 

void Op_aub (Actuator ") ; 

void Down_aub (Actuator*) ; 

void Reaot_aub (Actootor*) ; 

void But_rdarnin (Actuotor*) » 

void Bot~rdamaa (Actuator*) i 

void But~claral (Actuator*) ; 

void But - clom2 (Actuator*) / 

void But~ct 1 (Actuator *) ; 

void But_ct2 (Actuator*) ; 

void Sid rdaminO; 

void 91d — cdamasO ; 


sag^iiiqp^c^V' 

void Sld_clanl() ; 
void Sid c1ojd 2() ; 
void Sld_ctl () l 
void Sld_ct2() ; 
void But_calculator () ; 



void init lallro_all_aago_paraaotara_to__dofault () ; 
ponol_aogo_main » p; 

init iolisa^o ll_iogo_par ana tor a _to_da fault 0 ; 

> - a a 13. If 

y - y - l».5i 

ponal_aoga_« » «; 
ponal_aogo_y - y; 

/• cur_diroct ion - mod ( 41. a+enr_diroct ion ); •/ 


dunany ■ pnl mkact ( pnl label ) ) 
dunvny -> lobol - LABEL_ADAPTI08_LABEL ; 
dunxny -> I • 1 4 LABEL JU)APTIOB - X; 
dunany -> y - y a LAB EL_ADAPT I08 - Y / 
pnl_oddoct ( dnnrny. p ) t 

a dp dn dir act ion * pnl_n*act (pnl_dovn_ar rov_button) ; 
edp~dn~ diract ion -> a - a + ADP Dfi DIRECT 108 X; 
edp — dn — direct ion -> y - y a ADPJxTdI RECT lONjr; 
adp~dn~diroct ion -> upfunc “ Ne*t_dn_direct ion; 
pnl_addoct (odp_dn_diroction, p) ; 

adp up direction * pnl nfcoct (pnl_up arrow button); 
adp~up~ direct ion ->■■«♦ ADP OP DIRECT 1 08 X; 
adp_up_di rect ion -> y - y ♦ ADP_CP_DIR£CTI08_Y; 
adp_up_direct ion -> upfunc » Neat jip_di rect ion; 
pnl~addact (odp_up_di tact ion, p) ; “ 


pta direction » pnl n*oct ( pnl_lobol ) j 

pt a direction -> lab.) - direction of ljk[ cur direction )( RTS DIRECTION ]; 
pta~ direct ion ->*«■ + PTS DIRECTION X; 
pta - direction -> y * y a PTSDIRECTIONJf ; 
pnl_oddact( pta_diroctlon. p ); 

lln direction - pnl nfcact ( pnl lobol )l 

lin'd tract ion -> lobol - direction of i}k[ eur direction )( LIH_DIRECTI0« If 
linjdi rect ion -> i - a * LIN DIRECTION Xf 
lin_di rect ion -> y - y ♦ LIN^D IRECIIOn'y , 
pnl_addoct( lin_diract ion , p ) ; 

plo direction - pnl idtoct ( pnl label ); 

P la~ direct ion -> label - direction of ijk( cur direction H PLA DIRECTION It 
pla~ direct ion -> i • i 4 PLA_DIRECTION_Xf 
pla'diroct ion -> y - y + P LA~D IRE Cl I0N~Y ; 
pnl~addact ( pla^dlroctlon. p >; 

but adapt pta “ pnl_mkact (pnl wide button); 
but “adept pt.->lobal - BUT ADAPTPTSLABEL; 
but “adapt pt«->M - k + Btrr~ADAPTPTS Xf 
but “adapt pte->y - y + BUT“ADAPTPTS_Y f 
but _adapt pt a- >up func ■ Bag adoptpt a i 
pnl addact (but_adaptpt« . p) ; 
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but r amove - pnl mkact (pnl_uida_button) f 
but“remove-> label - BOT RQtOVE LAB EL f 
but“ romo va->« • m * B0T REN0 VE X; 
but“ra«no va- >y - y 4 B Ct” RD40VE_ Y f 
but “r arm w- > up func - Bog_casiovof 
pnl_addact ( but _r amove, p) I 

but undo - pnl intact (pnl vide button); 
but^undo-blabel - BUTCKDOL ABEL; 
but “u ndo - >a - a 4 BOT_ONDO_X; 
but - undo->y ■ y + BOT_ONDO_Y; 
but - undo->npfunc * Bog_undo; 
pnl addact (but undo. p) ; 


but_goo«->val - CECM_INI; 

but _gao*n->up func ■ S.t ccxnl vom; 

pnl addact (but_ga«n. p) ; 

but qfun • pnl mkact (pnl_toggla_button) ; 

but ~qfun-> label - BU?_QrON_LAB EL; 

but “qfun- >» - ■ ♦ B0T~0rra - X; 

but “qfun- >y » y * B0T~0r0N - Y; 

but “qf un->vol - OTCW IS I ; 

but “qfun- >up func ■ 3 at _comll_q fun / 

pnl_.dd.ct (but_qfun, p) ; 

Sld_rdanin 0 ; 


but addpta - pnl mkact (pnl «ide_button) ; 
but“addpt.-> label « BUT ADOPTS LABEL; 
but - a«Wpta->* - tt * B0T~ ADDPTS - X; 
but - addpt a->y - y ♦ BOT_ADOPT3 - Y; 
but - addpt a- >up func - Bag addpta; 
pnl_addact (but addpta. pf; 

but_aubpta ■ pnl mkact (pn l_wida_but t on) t 
but~ aubpta->laboT - -Delate*; “ 
but” aubpta->* “ « ♦ 2.2S; 
but - aubpta->y - y a 1.3; 
b ut_aubpt a- >up func ” Bag_aubpta; 
pnl~ addact (but_aubpta, pf; 

but march - pnl mkact (pnl_toggle_button) f 

but - march-> label - B0T_MARCH _LABEL ; 

but_march-> « - > ♦ BOT MARCH X; 

but - mareh->y - y a B0T - MARCH - Y; 

but - march-> val - MARCH_1NI; 

but - morch->upfune - 3 at _cool 4 _ma r ch j 

pnl~ addact (but_™ich, p) t 

but mnrchpl - pnl skact (pnl toggle button); 
but “marc hpl -> label - BOT MJWCHPL_LABEL ; 
bot~ norchpl ->■ - M a BDt“mARCHPL X; 
but - marchpl->y - y a BC7 — KARCHP L_Y ; 
but - marchpl->val - MARCHPL_INI; 
but_morchpl ->upfunc - Set _coml4_morchpl; 
pnl_oddact ( but_n»rchpl. p) ; 


Sld_cdama*() ; 

Sld_claml 0 ; 

31d_claa2 () ; 

Sld_ct 1 () ; 

Sld_ct2 () ; 

typain lnain* ■ pnl^nkact (pnltypain) f 
t ypa ie~ In a ing->* • • a TYPE IH - LRS INC X; 
typain” lnaing ->y - y a TYPEIN - LN3INC - Y; 
t ypa in “in » ing -> lobe It ypa - pnl LABEL BOTTOM; 
t ypa in - ln« ing -> label - TYPEIN LKSINC LABEL; 

PNL ACCESS <Typein.typein_lneing. Ian)"- TYPEIN LNSINC LENGTH; 

aprlntf (PNL_ACCESS(7ypoU. typoin_lnaing, atr) .TYPEIN_LNSINC_rO(WAT. LNSINC_IHI) ; 
typain_lnaing->opfunc ■ Intarg i*a_lna ing ; 
pn 1 _addect (typain_lnaing. p) ; 

typain_plaing “ pnl nkacttpnl typain); 
typain plalng-» - « a TYPCIN~PLB INC X; 
typain_plaing->y - y a TYPEIN~PL3 INC’Y; 
t ypa in_p 1 a ing -> label type * PNL LAB£L_BOITCM ; 
typain_plaing->labal - TYPEIN PL3 INC LABEL ; 

PNL_ACCE3S (Typain. typoin_plaing. Ian) - TYPEIN PLSIBCJ.ENCTH; 

aprTnt f (PNL_ACCESS(Typoln, typoin_plalng. atr) ,TYPEIN_PLSINC_rOBMAT. PL3IBC_INI) ; 
typain_plaing->upfunc » Intarg ita_pla ing; 
pnl_addact (typain _plaing.p); 


but ortha - pnl mkact (pnl toggle button) ; 
but_ortha-> laboT - BUT_QftTHS_LABELj 
but ortha->* “ n a B0T_0RTH9_X; 
but - orth»->y - y + BU7_0RTH3_Y; 
but" ortha->val - 0RTHS_INI; 
bot_orth a->upf uno » Sot_coml*_ortha; 
pnl - addact (but_ortha. pF / 

but ertho ■ pnl_mkact (pnltoggla button) ; 
but - erthe-> label - B0T_0RTHE_LABEL; 
but ortha->a « * a BOT ORTKE X; 
but - ortha->y - y a BOT“oRTHE>; 
but_ortha->val - ORTH E_IN I ; 
b ut_orth a -> upfunc - 3ot_coml«_ortha ; 
pnl_eddoct (but_ortha. p) ; 

but_geem - pnl_u*act (pnl toggla but ton) ; 
but gaom->labol - BOT_CEOM_L ABE L ; 
but^g #om->» - a a BCT_CE0M_X, 
but" goom->y « y ♦ B0T_CE0M_Y; 


t ype i n_mg at ep a - pnl_mkact (pnl Jtypoin) t 
typoin_mgatopa->> - a a MCSTEPS_X; 
typoin_mg*topa->y « y a KCSTEPS_Y; 
typain - mgatopa->labaltypa ■ PNL - LABEL BOTTOM; 
typain mgatopa->labol - TYPEIN_MCSTEPS_LABEL; 

PNL ACCESS (Typoin.typoin_mgatopa. Ion) - TYFEIN_MCSTEP3_LENCTH; 

aprTnt f (PNL_ACCE S3 (Typain. t ype in_mg atop* , at r) ,TYPEIN_MC3TEPS_rORMAT, MCSTEP3_INI) f 
typain_mgatopa->upfunc - Inter gir._mg ate pa; 
pnl_addoct (typain_mgatapa, p) ; 

typain mqpla - pnl mkact (pnl typoin); 
typain - mgpla->* - « a TYPE INMCPLSX, 
t ypa i n “mg p 1 ■ - > y - y a TYPEIN_MCPLS - Y; 
typain jngpla->labaltypa - PNL LABEL BOTTOM; 
typain nqpl«->labal - TYPE IN_MCPLS_LABEL; 

PHL_ACCE33 (Typoin, typoin mgpTa, lan) - TYPEIN_NCPLS LENGTH; 

aprTnt f (PRL_ACCCSS (Typoin, type in_mgpl a , atr) , TYPEIN_MCPLS_rORMAT. MCPLS_INI) ; 
typain_mgpla->upfunc - Intarglra_mgpla; 
pnl_addact (typoinjngpla ,p) ; 
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pnl_add*ct (typain nel.p) ; 


typain_»ub - pnlmkoct (pnl_typain) ; 
typ*lo_tak-» - e a SOB_Xf 
typ*lnjak->y - y a SOB Y ; 

m ACCESS (Typain. typal7_»ab. lan> - TYFEIB SOB LENGTH/ 

■ print f (PBL_ACCESS (Typain ,typain_»ub. «tr) . TYPEIB_SOB_rO»IAT . SOB_INI) ; 
t ypa in_a ub- >up f one - Intarglra_»ubj 

pnl_addact (typain_aub, p) i 

typain_nadga - pnljrfcact (pnl typain) ; 
t ypain_nodga->a - a ♦ TYPE IB_BEDCE Jt; 
typalnjiadga->y - y ♦ TYPEIN_NEDCZ Y; 
typainji adga-> laba It ypa - PNL_LJUSEL_&OTTCM ; 
t ypa in_nodga-> labal - TYPEIB_HED«_LABEl; 

PHL_ACCES3 (Typain. typain jiadga, Ian) - TYPE IH_KEI>CE LEBCTH; 
a printf (PHLJiC CESS (Typain, typainjiadga, atr) .TYPE IH~HEDCE_rORHAT, HEDCE_INI) ; 
t ypainjindga->up£ur«: - Intargirajtadga; 
pnl_addaet ( typain jiadga. p) ; ~~ 

typain_indq * pnljdtact (pal typain) ; 
t ypa io_l ndq- >a • I ♦ TYPBIB - IBDQJ(; 
t ypa in_i ndq - >y - y a TYPE IN~ IKDQ~Y; 
t ypa in _ indq-> labaltypa - PKL LABEL BOTTOI; 
t ypa in_i ndq-> labal - TYPE IB INDQ LABEL; 

PN1_ACCES3 I Typa in. typain indq. Ian) - TYPE IB I KDQLENCTH ; 

• pi tfit f (PBL ACCESS (Typain, ty pal n_indq. Itr) . TYFEIB_IHDG_rORHAT. IKDQ_IHI) ; 
t ypain_indq~>upfunc - Irct arg ira_indqj 
pnl addnct (typain indq, p) ; 

typain nfilt - pnljrdact (pnl typain ); 
t ypa Inji flit ->a • a a TYPEIB - BTILT X; 
typainjifilt->y - y a TYPEIH^ST ILT~Y) 
typain «filt->labaltypa - PHL LABEL BOTTOM; 
typain“nfilt->labal - TYPEIH_5riL7_LABEL; 

PHL_ACCES3 (Typain. typain_nfilt , lan) - TYPE IM_HF I LT_L ENCTH / 

■ print f (PXL_AC CESS (Typain. typain jif lit , atr) , T YPEIHJiriLT_FO(WAT. BFILTIHI) ; 
typainjifllt->upfune • Intargira nfilt; 

pnl_«6dact (typain jifi It .p) ; 

typain_intar “ pnljnkact (pnl_typaln) ; 
typain lntar->K ■ x a TYPEIB_IHTER_X; 
typain~intar->y - y ♦ TYPEIHIBTCRY; 
typain lntar-> labaltypa - PBL_LABEL_BOTTO(; 
typain"intar->lakal - 7YPEIBINTERLWSEL; 

PICL ACCESSITypain.typain intar. Ian7 - TYPE IN IHTER_L ENCTH ; 
aprintf (PNL_ACC£S3 (Typain. typain_intar. atr). TYPEIH_INTER_rOFKAT. I NTERIN I) ; 
typaln_intar->npfune • Intargira_lntar ; 
pnl_addact (typain_intar. p) ; ~ 

t ypa in raql - pnljnkact (pnltypa in) ; 
typain mgl->a ■ a a TYPEIB MCI X; 
typainjngl->y - y a T YPEIN~NC2~Y» 
typain mgl->labaltypa ■ PNL_LABEL_B0TT<1(; 
t ypainjngl->lakal - TY7EIM_MC1_LABEL; 

PNL_ACCE S3 (Typain. typainjrql. Inn) - TYPE IH_MC 1_LENC7H < 
a print f (PBL_ACCESS (Typain. typain jnq 1, a tr> . TYPEIB J«l_rO»(AT. NC1_INI) ; 
t ypalnjngl->tipfunc - Intargira mgl; 


up_nadga « pnljnkact (pnl_up_«r row button) ; 
up_n*dqa -> a - a a OP_NEDCE X; 
upjiadgo *> y ■ y ♦ OPNEDCEY; 
up_nodga -> upfune - Op_nadga; 
pnl_addeet (up_nadga. p) 7 


up_indq ” pnljnkact (pnl_up_atco» button) ; 
up_indq ->■■!♦ OPIKDQ^X; * 
up_ind«| -> y ■ y + OP_IfTOQ~Y; 
up_indq -> upfune a Opindq; 
pnl_addact (up_indq. p) ; 

down_indq « pnl_mfcact (pnl_doi«n_ar ron buttoi 
down_indq -> ■ ■ b ♦ OOtOI_INOQ~X; ”* 
doan_indq -> y - y 4- DOtffl_INOO_Yf 
down_indq -> upfune - Dotm_indq; 
pnl_*ddact (down_indq. p) ; ~ 


up_mql • pnl mkact (pnl_up_arri>u_button) ; 
upmql -> m - • * OP_MClJt; ~ 
upmql -> y - y * 0P_MC1~Y| 
upmql -> upfune - Opjnqli • 
pnladdact (up mql, pj ; 

doanmgl a pn l_mkoct (pnl_doan arrow butt 
down_mg 1 ->»-«+ BONN MCI X; 

<town_nql -> y « y ♦ dobb^MCI'y; 
down_nql -> upfune - Down_trql ; 
pnl_addoct (down_mql, p) ; ~ 
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ra*at_mp 1 a pnljskaet (pnl buttoa) ; 
r aaat_mg 1 ->«-*♦ RESET JtCl_X; 
raaat vfl -> y ■ y ♦ RESET JMC 1 — Y ; 
raaat~nfl -> la bait ypa - PHL_LABEL_CEHTER; 
raaatjnql -> labal - RESET_MC1_LABEL; 
raaat_n«l -> upfune - Ra«at_ngli 
pnl_addact (raaat jnpl, p) ; 

up_mq2 ■ pn l_mkact (pn l_up_ar row_botton) ; 
up_mq2 ->«■!♦ OP_MC2_X; 
up_ot2 -> y - y a 0F~MC2_Y; 
up nqS -> upfune - Op_n«2; 
pnl_addact (up_mq2. p) 7 

down jnq2 - pnljdract (pnl_down_arrow_button) i 
down _ng2 ->■-** D0WB_MG2_X; 
down_mg2 -> y • y a DOWI~MC2_Y; 
down_mj2 -> upfune “ Down_nq2; 
pnl_addaet (down_mg2. p) ; 

rasot_mg2 “ pnljdtoct (pnl button); 
roaot~m|2 ->■-*♦ RESET MC2 X; 
ra*at_mg2 -> y • y a RESET“mC 2~Y; 
raaat nq2 -> labaltypa - PKL LABEL CENTER; 
raaat_mg2 -> labal - R£SET_HC2_LABEL; 
raiat^mq2 -> upfune • Raaat_mg2 ; 
pnl_addact ( raaat_roq2, p) ; 

apjnqatapa » pnljnkact (pnl_up_arrow_button) ; 
upjngstapa -> a ■ ■ a PP_MC3TETS_^X; 
upjmfbtapa -> y • y ♦ 0P~MC3TEPS*Y; 
up_mqatapa -> upfune “ Op_n<q*tepa; 
pnl_addaet (up_raq«tapa. p) i 

down mg • tap a » pal n*act (pnl down arrow button); 
down jng atop • -> a - a a DONB ~MCSTEPS_X;“ 
downjnqatapa -> y ■ y a 0 OKU _MC STEP S_Y; 
downing ■ tap* -> upfune » Dowajngatapa; 
pnl_addaet (down_mgatapa. p) ; 

r aaot_mf itapa » pn l_mkact (pnl_button) ; 
raaat sngatapa -> a - a a RESET_MCSTEPS_X; 
r aaat_mg*tapa -> y - y a RESET~KCSTEPS_Y; 
r aaat_mgitapa -> labaltypa - PHL LABEL_CEBTER; 
r aaat_mgatapa -» labal - R£SET_MC9TEP3_LABEL; 
raaatjngatapa -> upfune - Raaatjagitapa; 
pnl_addact (raaat__nfatapa. p) ; 

npjaqpls - pol_nd.net (pnl_up_arrow_butt on) ; 

->*“■ + 0P_HCFl5 X; ~ 

upjnqpla -> y - y a UP“(1CPLS~Y; 
upjngpla -> upfune - Opjngpla; 
pnl_addact (up_ngpla. p)7 

dean mgpla - pal nkaet (pnl down arrow button) ; 
down mgpla -> a - a a DOWb'mcPLS X; 
downjngpla -> y - y a DOKH~HCFLSjf; 
downjngpla -> upfune ■ Down mgpla; 
pnl_addoct (downjagpla , p) ; 

raaatjngpla * pal_aAact (pnl_buttoo) ; 
raaat jngpla -> a ■ a ♦ RESE7_MCPLS_X; 
raaatjngpla -> y - y a RESST~MCPL8~Y; 
raaatjngpla -> labaltypa - PBL LABEL CEV7ER; 


raaatjngpla -> labal - RESET_MCPLS_LABEL ; 
raaat_mgpla -> upfune - Reaetjngpla; 
pnl_addaet (raaat jngpla. p) ; “ 

up_nfilt « pnljnkact (pnljip arrow button); 
up_nfilt -> a - a a 0P_MriLT X; 
upjifilt -> y - y a OP_KJT LT JT; 
upnfilt -> upfune - Op_nfiltl 
pnl_«ddact (up_nfilt, p)7 


up_intar « pnl jnkact (pn ljjp_ar row_button) ; 
up_ inter -> a » a a OP_INTER_X ; 
up intar -> y • y + UP_ IHTER~Y ; 
up_int ar -> upfune « Op_int«r; 
pnl_addact (up_intar. p) ; 

down_intar a pnl_crkaet (pnl_down_arrow button) ; 
down_lnter -> a - a a DOMH_IRTER_X; 
down_intor -> y - y a DOWN~IN7 ER_Yj 
down_intor -> upfune “ Down_intar; 
pnl_«ddact (down_intar, p) ; 

roaot^intor ” pnljdtact (pnl_button) ; 
roaot^intor ->«■*♦ R£SET_ISTER_X; 
raaat_int or -> y • y a RES ET_I NTE R_Y ; 
*n»*t_iotor -> labaltypa - PKL_LABEL_CEBTER; 
raaet_inter -> labal - RES ET_I HTE R_LA8EL ; 
raaat_intar -» upfune ■ Raaat_intar; 
pnl_addaet (raaat _intar . p) ; “ 

up_lnalng - pnl_rtdoet (pnl_up_orrow button); 
up_lnaing ->«»*♦ UPLNS IMCXj 
up_lnaing -> y - y a UP_LNSINC_Y; 
up_lnaing -> upfune - Up_lnaing; 
pnladdoct (up_lnaing, pit 

down_lnaing ■ pnl_ir*act (pnl down arrow button) 
down_lnaing -> * - a a DOWN LNS INC X; 
d©wn_lnting -> y « y a DOWN'LNSINC^Y; 
down_lnting -> upfune ■ Down^lnaing; 
pnl_oddoct (down_lnaing, p) ; “ 

raaat lnaing “ pnl mkoct (pnl button); 
roaet~lnaing -> a - a a RESET LHSINC X; 
raaat_lnalng -> y * y a RESET~LNS ING~Y; 
raaat_lnaing -> labaltypa - PNL LABEL CENTER; 
raaat_lnaing -> labal - RESET_LKSIBC_LA8EL; 
raaat_lnaing -> upfune ” Reaat_lnaing ; 
pnl_oddact (raaat _lnaing. p) ; 


m&m 
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up_p lain, > pnl u*oct (pnl op acre* button) > 

but rdamin -> upfunc - But rdamin; 

up_plalng ->«-■♦ UPPL3IBCX; 
up_plaing -» y ■ y + CP PL3IBC~Y; 

pnl_addact (but_rdamln, p) / 

up_plalng -> npfunc - Op_plalng; 
pnladdoct <up_plaing . p)7 

but rdanmn ■ pnl nfcacttpnl wide button)/ 
but r damn a -> labol - BUT RDSKAX LABEL; 


down pla ing * pnl nfcact (pnl down arrow button) / 

but rdamaz -> y - y ♦ BUT RDSMAX It 

down _p la in, ->«-«♦ DOWS PLSINC X; 

but rdamna -> upfunc “ But rdaman upfunc; 

down_pla In, -> y - y ♦ DOWS_PLS IBC_Y; 
down_j>lain, ~> npfunc - Down_plalng; 

pnl_oddact (bot_rdamax. p) i 

pnladdoct (down _plaing, p) J 

but claml ” pnl n*oct (pnl_wldo_button) / 
but claml -> labol - BUT CLAM1 LABEL/ 

roaat_plaing - pnl nkact (pnl button) ; 

but jolaml ->■"■♦ BUT_CLAmT_X; 

roaot_pl ainf ->*-*♦ RESET PLSINC X; 

but claml -> y - y * BUT CLAMl Y; 

roaot _plaing -> y - y ♦ reset PLSiHC Yi 

but claml -> upfunc - But claml; 

raaot_plaing -> laboltypo » PHI LABEL CENTER/ 
raaot_plaing -> labol - RESET PLSINC LABEL ; 

pnl_addact { but _e laml , p) / 

roaot _plalng -> upfunc - Roaot plain*/ 

but eland " pnl nfcact (pnl wlda button); 

pnl_oddoct <raaot_plaing. p) / 

but cloud -> labol - BUT_CLAK2_LABEL| 
but eland -> a » a ♦ BUT CLAM X; 

up add -pnl mkoct (pnl up arrow button)/ 

but eland -> y - y + BUT CLAKJ It 

up odd ->«-«♦ OP ADO X/ 

but clam2 -> upfunc " But clam2/ 

up_add -> y - y ♦ UP_ADD_T/ 
up add - > upfunc “ Op add/ 

pnl addoct (but_clam2 , p) / 

pnl_addaet (up_add. p) / 

but etl - pnl n&act (pnl wide button)/ 
but _ ct 1 ->labal - BUT C71 LABEL; 

down add » pnl cnkaet (pnl down arrow button)/ 

but ctl -> ■ - x ♦ BUT CT1 X/ 

down add -> a " a + DOWS ADD X/ 

but ctl -> y - y ♦ BUT CT1 It 

down odd -> y - y + DOWS ADD It 

but ctl -> upfunc • But ctl/ 

down odd -> upfunc - Down add) 

pnl oddact (but ctl, p) ; 

pnl_addact(down_add. p) / 

but ct 2 - pnl irfcact (pnl wlda button); 

roaot add - pnl n* act (pnl button)/ 

but Ct 2 ->labol - BUT CT2 LABEL; 

roaot add -> a - a ♦ RESET ADD X/ 

but ct2 -> a - n ♦ BUT CT2 Xj 

roaot odd -> y - y + RESET ADD 1/ 

but _ct 2 -> y - y + BU7 CT2 Y, 

roaot add -> laboltypo - PNL LABEL COTTER) 

but ct 2 -> upfunc " But ct2; 

r*<«t_add -> Ubml - RESET_A5D_UWEti 
c#Mt «dd -> opfooc • iu»«t add; 

pnl_addact (but_ct2 , p) / 

pnl addoct ( roaot _*dd, p) / 

but _CO leu lot or • pnl ok. act (pnl wide button); 
but calculator -> labol - BUT CALCULATOR LABEL; 

up aub ■ pnl mkoct (pnl up arrow button)/ 

but calculator ->■-■♦ BUT CALCULATOR X; 

up_*ub -> a » a + UP_5UB^X; 
up aub -> y » y + OP SOB h 

bot_ca leu lot or -> y - y ♦ BUT^CALCULATORY, 
but calculator -> upfunc « But calculator; 

up_»ub -> upfunc “ Op_»ub ; 
pnl_addact (up_aub, p) / 

pnl_«ddact (but_c«ilcu l«t p) i 

down_aub « pnl_o*oct (pnl_down__arrow_button) / 
down aub -» a " x ♦ DOWN SOB X; 

void Bog ada ptpt a (Actuator * act) 

down _• ub -> y “ y + DOWH_SOB_Y) 
down aub -> upfunc " Down aub/ 

] 

void Cot I JKpa roma () i 

pnl_oddact (down_»ub, p) / 

void MomoryManogor ( float*, float* ); 
float *,otQ () ; 

roaot aub -> a - a ♦ RESET SOB X; 

prlntf (*\n\n«« IHITIALIIINC ADAPTION PROCESS tt\n\n\n"); 

raaat aub -> y » y ♦ RESET SOB Y/ 

roaot tub -> laboltypo - PNL LABEL CENTER) 

lock cur objactO; 

roaataub -> labol - RESET_SUB_LABEL; 
roaot aub -> upfunc ■ Roaot aub/ 
pnl addact (roaot aub. p) ; ~ 

Cot IJXparama () t 


/• if( liroadq ) 

but rdamin " pnl mkoct (pnl wlda button); 
but'rdamin -> labol « BUT RDSMIH LABEL; 

< 

qaddraaa - gotflO; 

but rdamin -> a - a + BUT RDSMIH X; 
butjrdamin -> y - y + BUT_RDSWIX_Y; 

iroadq - TRUE; 

1 

— — 
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•/ 

updata_f ld_data_panol () / 

adapt_,rid - (float *) ahm_attach( ,rld_ae,or -> fiold_lda (GRID_ID) )> 
adapt_q » (float *) ahm_attach( ,rid_io,or -> f iold_id» [VECTOR_ID ) )/ 

unlock_cur_ob joct () / 

Namorytlanogor 1 adapt_grid, adapt_q )/ 

updat o_ob Joct _t ypoout () / 

/* iff liroadq ) froa| qaddroaa )/ •/ 

prlntf (*\n\n«% IHI7IALISIBC UNDO PROCESS %«\n\n\n") / 

unloek__cur_objoct () / 

) 


void Intorgi Mjadd (Actuator* act) 

wrlta_,r id_data() i 

long int 

lock_q_data () / 
intorpolato_q_data () / 

t omp_i nt / 

writa_q_data () / 

tamp int - atoltPNL ACCESS (Typoin . typoin add. at r)); 

u n lock_q_data ( ) ; 

if ( tanp_int < A0D_HIN ) 

*/ 

com H_. add - ADD_HIN; 

void Bog_addpt a (Actuator* act) 

• la# if ( tanp int > ADD_KAX ) 

t 

print f(*\n\n\n In aort ion of pointa will bo In noat aoftwaro roloaao.\n\n\n") / 

eoml9_ .add - A0D_HAX; 

) 

alaa 

void Bo« aubpta (Actuator* act) 
( 

I 

com 19 .add - tamp inti 

print! (" \n\n\nDolat ion of pointa will bo in noat aoftwaro rolaaaa .\n\n\n’| / 

1 

] 

apr int f (PNL ACCESS (Typoin. typo In add. atr ) .TYPEIN ADD rORHAT. coral* .add); 

void Bogjjndo (Actuator* act ) 

\ 

int dimonalona [ 3 ) / 

void Intorgico_mgatopa (Actuator* act) 

print f(*\n\nt% INITIALISING UNDO PROCESS »%\n\n\n*l / 

( 

long int 


tarap_int; 

loek_cur_ob Joct () i 

tamp int • atol (PNL ACCESS (Typoin. typoin mg atop*, atr) ) / 

dimonalona (0) " ondo_imaa; 

if( tanp int < MC5TEPS NIB > 

dimonalona (1) “ undo_ jmaa; 

( 

dimonalona (2) - undo_kmoa; 

ccmll_.mgttopa “ MCSTEPS_HIN; 

data_xy*_bytoa “ dlmanalonalO) * diman a ion a [ 1 ] * dlmona Iona [2) • XYIDIH • alroof(floa 

•law lf( tamp int > MC3TEPS MAX ) 

t) 1 

( 

data_q_bytaa - dimanalonatO] * dimonalona ( 1) • dimanalona(2 ) * QDDf * al roof (float ) ; 

coml 1__ .njatopa - HCSTCPS^KAX; 

if ( iaot data dima (GRID + qrld aagor -> conaa{CRID TYPE ) (REG) . grid aagar -> ronaa [CR 

•laa 

ID TYPE I [IXD], dimonalona)) 

“l 

( 

cocoll .mgatopa ■ tamp int; 

Error ("cannot a at floldlXn"); 
unlock cur objoct () / 
ox it (Of; 

) 

t 

■print f (PNL ACCESS (Typa in. typoin mgatapa. atr) .TYPEIN MCSTEP3 rCWUT.com 11 .n**topa); 

1 

if (loot data dima (SOLUTION ♦ grid aagar -> aonaa (VECTOR TYPE] (REG), grid aagar -> ro 

void Intorgi ta mgpla (Actuator * act) 

non [VECTOR TYPE lfrLD), diman a iona) ) 

( 

] 

long int 

Error ("cannot a at fleldl\a") ; 

temp_int; 

unlock car object ()/ 


•■it (OF; 

1 

tamp int " atol (PNL ACCESS (Typoin, typain mgpla, atr))/ 
if ( toirp_int < HCPLS WIN ) 

memepyi (char *)adapt_grid. (char •) unadapt _gr id, (aica_t)data_wya_bytaa )/ 

comil .mgpla * KCPLS KIN; 

mamepy ( (char *)adap*2d. (char *) nnadapt q. (a iaa_t) data_<q_bytaa ) 7 

1 

alaa lf( tamp int > KCPLS MAX ) 

updata_actuatoraO / 

1 
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corall_.ragpla - MCPLS_KAJt/ 

alaa lf( taopint > IHDQ_MAX ) 

• lit 

ccrf_. indq » IHDOJSAX; 

coral l_.raqp la * tamp_int; 

alaa 

1 

corf .indq • tarap lot; 

» print f (PHL ACCESS (Typoln.typoln mgpla . atr ) . TYFEIH KGPLSrORMAT. coral l.mgpl.) , 

1 

I 

apr int f(PKl ACCESS (Typa in. typain indq. atr) .TYFEIH IHDQ ro SWAT, corf .indq); 

void Intact i*o_aob (Aetna ter* act) 

1 

loot lot 

void Intarglra nf lit (Actuator * act) 

taip int / 

f 


long int 

tan* int ■ at o 1 (PPL ACCESS (Typo in. type in aub, atr) ) ; 
if < tan? lot < SOS MIH ) 

tanp_int/ 

1 

tamp int * atoKPNL ACCESS (Typain , typain nfilt.atr)); 

coral l_.aub - SU8_M IN; 

if( tau?_int < HriLTMIH ) 

all* iff taa?_int > SOBKAX ) 

corall_.nfilt - NTILT_MIH; 

coral tub « SU5_KAX; 

alaa lf( tan?_int > HTILT_MAX ) 

' «1h 

coral l_.ofi It • NT ILT_MAJf ; 

coral t_.aub ■ tarrp_lnt ; 

•1*# 


coral l_.nf lit »tan?_lnt; 

1 

aprintf (PHI ACCESS (Typa in. typain nf lit, atr) .TYFEIH HFILT FORMAT, cerall .nfilt); 

wold Intarg ira_nadga (Act net or* act) 

» 

1 

long int 

void Intarglca intar (Actuator* act) 

tau?_int ; 

( 

too? lot - atol (PHL ACCESS (Typa in. typa in_nadga, at c) ) ; 
if< tan? int < HEDGE MIN ) 

tamp_int, 

( 

tarap int ” atoKPNL ACCESS (Typain , typain Intar, atr)); 

corf .nadga - HEDGE MIH; 

iff taa?_lnt < INTERMIH ) 

•In if< > HEDGE JKAX ) 

Co«ll_. intar • IHTER_MIN; 

corf_. nadga - HEDCCJIAX; 

alaa if ( tamp_int > INTERMAX ) 

alaa 

coral 1_. intar - IHTERJKAX; 

ccra*_.nod qm - tma+Jinti 

alaa 

* 

coral 1 .inter " tan? int; 

a print f (PHL ACCESS (Typa in . typa in nadga. Ptr) , TYPEIH HEDGE rORMAT, corf_. nadga > ; 

1 

) 

aprintf (PHL ACCESS (Typain. typain inter. atr) , TYPEIH INTER FORMAT. corail .inter); 

wo id Intarglca_lndq (Actuator * act) 

1 

long Int 

void Intargisa ngl (Actuator* act) 

t «p_iBt 1 

l 

long int 

taap int - atol (PHL ACCESS (Typa in. t ypa in indq, atr)); 

tarap int; 

if ( tarap int < IHDQ MIH ) 
( 

tamp int - atoKPNL ACCESS (Typain .typain tngl.atr)); 

corf . indq - IHDQ MIH; 

] 

if( too? int < MCI MIH ) 
( 
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corf .rogl - HClJtIH; 

ifl tan?_int < PLSIBCJtIH ) 

1 

alaa lf( tan?_int > MC1_MAX ) 

coral 5_.pla ing - PLSI»C_MIH; 

1 

corf_.ragl - MC1_MAX; 

alao iff tan?_lnt > PLSIBG_MAX ) 

alaa 

cool5_.pl* ing - PLSIHC_HAXr 

1 

corf_.log 1 - tamp_int; 

also 

| 


coralS .plalng “ tarap int; 

aprintf (PPL ACCESS (Typain . typa in mgl.atr) . TYPEIH MCI rORKAI , corf_.ragl) / 

1 

1 

aprintf (PHL ACCESS (Typa in. typo in_pla ing. atr) .TYPEIH PLSIHC FORMAT. c oral S .plalng); 

void Xntarg Ira _n?2 (Aetna tar* act) 

) 

! 

long int 

void 8 at coral; march () 

tan?_iut; 

( 

coral; .march ■ but raarch->val; 

tao? int > atol (PHL ACCESS (Typa in. typa in mg2,atr)>; 
if ( tarap_lnt < NC2MIH ) 

) 

void Sat_corai;_raarchpl () 

corf .rag 2 - MC2 MIH; 

I 

corall_.marchpl - but _morchpl-> val; 

alaa iff tan?_lnt > KG2_MA* ) 


( 

corf_.mg2 - MC2_MAX; 

wold Sat_coml6_ortha () 

1 

alaa 

coral 6_ . or t h» - but _©rtha-> vol; 

( 

corf .mg 2 - tarap inti 

» 

void 3ot_coralC_ortho() 

. print flPWL_AC CESS (Typain ,typain_mg2, atr) . TYPEIH_MG2_rOIWAT. corf_.mg2 ) i 

1 

com 14 .ortho - but ortho->val; 

1 

void Intarg lsa_lna ing (Actuator* act) 

void Sat_corall_gaom () 

long int 

corail .gaora * but gaom->val; 

t anp_lnt / 

1 

tarap int ” atol (PEL ACCESS (Typa in, typa in lnalng, atr) ) ; 

void Sat coral 1 qfun () 

lf( tan? 1st < LH3IHC MIH ) 
( 

1 

corail .qfun ■ but qfun->vel; 

co«15_. lnalng - L*SIHC_MIH; 

1 

alaa if( taraplnt > LBSIHC_HAX ) 

wold Sot corf rdaraaa () 
| " ~ 

co«15_. lnalng - LSSIHCKAX; 


1 

alaa 

void Sat corf rdsraln () 

coralS .lnalng - tan? inti 

! 

( 

eorf_. rdarain - a ld_rdarain->val ; 

aprintf (POT, ACCESS | Typa in . typain lnalng. at r) . TYFEIH LBS Z*S_rORKA7 . coral 5 .lnalng); 

1 

void Sat coolO clamK) 

void Intarg Isa _plaing (Actuator* act) 

coralO_.claratO) ■ ald_elaral->vol; 

long int 


tao?_int; 

void 8at_coml0_clam2 () 

taa?_int » atal (PHL_ACCE3S(Typaio.t ypoin _plaing. at r) ) ; 

coral 0_. cl am 11 1 w a ld_c 1 am2 -> va 1 ; 




I 


•aid Sot_coralO_ctl() 

coral 0_.ct (0 ) » *ld ctl->val; 

1 

•old Bat_comlO_ctZ () 

coral 0 ,ct[l) - »ld ct2~>val/ 

) 

•old Boirt_dn_dlroct ion (Act tutor* *ct) 

( 

1 f I — cur_diract ion -■ -1 ) 
cur_diroct ion >41; 

pt*_diraetion -> labol - diroct lon_of_i Jk I cur_diroctlon ][ PT3_DIRECTIOR ]; 

lin_diroction -> labol ” diroct ion_of_ijk I curjdiraet ion ]| LIH_DIR£CTIOH 1/ 

P lo_dix oct 1 on -> labol « diroct lon_of - ljk [ cur“diroct ion ]{ PLA_OIR£CTIO» )/ 

pnl_fi«act (pt*_dir oct ion) ; 
pnl_fi«*ct (lin_<tiroct ion) ; 
pnl_firaet (plo_diroct ion) ; 


•old Bootup diroct ion (Actuator* oct) 

I 

if( ++cur_diroction ■■ 4* ) 
curdlroctioa ■ 0/ 

pta_diroction -> labol - dlroction_of_ijk( cur direction )[ PT3 DIRECTIOB ]/ 

lin_diroction -> labol - diroct ion_of_ijk ( cur - diroction )[ LIHJDIRECTIOB ]; 

pl*_diroct ion -> labol - diroct ion_of_i jk ( cur_diroction )( PLA_0 IRECTIOH If 

pol_f ixaet ( pt i dtroct ion) t 
pal_f izact ( lin_dlroct ion) / 
pal fixset ( plo dir oct ion) / 

\ 


•old Cot UK par ana 0 

I 


int line. jinc. kine» 
float *oyr; 


sagerSuppoitc:;:. 


yridaayor -> dim* (VECTOR_TYPE) [JJ . 
yrid_oa«oz -> dim* (VECTOR_TYPE) (Ej) ; 


1 l*d. bd. %d. bd. *d) \n" , 


(bd. bd. %d. %d. bd|\o*. 


print f (* ranyoa ( 1 ]( START/EKD/ IBC/COR/DIM ] 
yrid_aayor -> ranyaa J I )( START) . 
yrid_aa yor -> ranyaa f X) ( EKD } , 
yrid_aayor -> ranyaa (I) I INC) . 
yrid_*ty#r -> ranyaa (I j (CTO] , 
yrld_toyor -> ranyaa ( 1 } (Dm ]) ; 
print fCranyoaU) [START/EKD/ INC/COR/DIM ] 
yrid_aayar -> ranyaa (J) (START) . 
yrid_*ayar -> ranyaa (J) ( EHD ) . 
yrld_aayar -> ranyaa (J) I IK ] , 
yrld_aayor -> ranyaa (J) (COR) , 
yrld'aayor -> ranyaa (J) (DIM)) j 
printf ('ranyoa |K) { START/EKD /INC/CUR/DIM) 
yrid_aoyar -> ranyaa (K] ( START) , 
yrld_aayar -> ranyaa (K) (EKD) . 
yrid_aayar -> ranyaa (K) ( IBC ) , 
yrld_aayar -> ranyaa (X} [CUR] , 
yrid_aayar -> ranyaa (K) (DIM)) / 

printf (“mlnmar (CLIP) (MIBI/MAXI/BOTTGM/TGF) • [»£. *£, %f. *£]\n*. 
yrid_aayor -> mlnmar (CLIP) [MINI], 
yrld_aayor -> minmns (C1IPHKAXI ) . 
yrld_aayar -> mlnans (CLIP I {flOTTOI] , 
yrid_aayar -> mintnas [CLIP] (TOP) ) j 
print f( 'mlnmar (NORM) (MIN1/MAXI/BOTTGH/TOR] ■ 
yrid l_tayer -> mlnmar [NORM] (MIHI) . 
yrid_aayor -> rninmaa [WORM) (MAXI), 
yridaayor -> rninmaa (NORM) (BOTTOM) . 
yrid_aayor -> rninmaa (NORM) (TOP)) f 
print f C acalaz_id - %d\n“. 

yrid_aayor -> fiald Ida [SCALAR ID])/ 
print f(*yrid_id ” - %d\n“, 

yrid~aayor -> £iold_id» (CRID_ID)) / 
printf ('vector id ~ — - %d\n“. 

yrld_aayor -> fiald Ida (VECTOR ID])/ 
printf ('\n") ; 


• [bd, bd. 


' (bf. bf. bf , b£J \n*. 


uya ■ (float •) *hm_attach( yrid_*ayor -> yrid_id )/ 
for <kinc a 0; kinc<5; kin C++) | 

for ( Ji nc»0 ; jinc<5 / jlnc++) ( 

for (iinc*0; lincklO; iinc++-) ( 

print f('i-bd. J“bd, k-bd, ryt»bf. bf. *f\n", line. jinc, kinc. 
• (ryr+kinc*10*20*l+Jinc*10*3+ilne*3) . 

» <ryz+klnc*10*20*3+jlnc*10*3+iUc*3+l) , 

• (ayr+kinc* 10*20*3 +jinc*10*3+iinc *3+2) ) / 


print £(*\n") / 
printf Cabjoct_typa 

yrid_aoyor -> objoct_typo) / 
printf ('direction 

yrid aayer -> direction)/ 
printf C'dimaJCRID TYPE) (I/J/K) 

yrid aayer -> dims(CRI0 TY7E)(I). 
yridaayor -> dim. (GRID TYPE) (J) . 
yridaayor -> d ima (CRID_TYPE) (K) ) / 
printf ('dim (SCALARJTYPE) ( 1 /J/kT - (%d. bd. bdj\n', 

yrid sayor -> dime (SCALAR TYPE) | I], 
yrid - aayer -> dlma (SCALAR - TYPE) ( J] , 
yrid aayer -> dima [SCALAR - TYPE ) (K)) / 
printf ('dimaJvECTOR TYPE) (I/J/R) “ - ftd, bd. bd] \n' . 

yrid aayor -> dima (VECTOR TYPE)(I). 


- bd\n*. 

» bd\n* , 

- (bd. bd. bd)\n-. 


•/ 


dot a_imin “ 1/ 

data imaa - undo_imaa - yrid aayor -> ranyoa [I] (DIM) / 
dot a_ jmin - 1/ 

dot o_Jmnr - undo_jmoa - yrid aayor -> ranyoa ( J) (DIN] / 
dot a _k min >1/ 

datokmaa - undojkmar - yrld_*ayor -> ranyoa (K) (DIM) / 

datary.byta# - dato_lmaa • data_jma> * data kraaz • XYZDIM • aicaof (float) / 
data q byta. - data_imaa • data_jmo« « dota junaa * 00 IM • a i roof (float) / 

odapt_imin - yrid_«ayar -> ranyaa ( I] ( START] / 
adapt_ima* - yrid_ioyar -> ranyaa (I ]( EBD ) / 
adaptjmin - yrid_aayar -> ranyaa (J) (START) / 



adapt _jma« - yrid aayor -> ranyoa (J) (EBD) / 
adaptjuain - yridaayor -> ranyoa (K) (START ) t 
adaptjunaz - yrid”*ayor -> ranyaa (K) (CBD) ; 

/• 

cacn4_.iat “ data_imin; 
c«oi4_.land <* dota_imoa; 
eom4_. jat ■ 1/ 
com4_.jond ■ 4/ 
com4_.kit - 1/ 
cond^.kand * 4/ 

ldir - yridaayor -> ranyoa [ I) ( IBC) » 
jdlr • yrid - aayor -> ranyoa (J) [ IBC) / 
kdlr ■ yrid aayar -> ranyoa (K) (INC] / 

*/ 


sageiSupportc j ■ . / ; 

•old Init aayo _p*rom*(); 

•oid Ship - data ( float*, float* )/ 

•old 0nahlp_data( float*, float* )/ 
void aayar ()/ 

/• void Duplicato_from_t o ( float*, float*, unaiynad lony int); */ 

Init_aaya _parama () / 

/• lock_cur_ob Joct () ; •/ 

Ship_data( ay*, q )/ 

moraepy ( (char *> unadapt_yrid, (char *) ryr. (aira t) data rya bytoi) / 
mamcpyUehar «) unadopt_q, (char *> q, (also t) data_q bytaa)/ 

■ ayar_() / 

Onahlp_data( ryr, q )/ 

/• unlock cur ob jact (} / */ 

I 


float *Cet0() 

extern int open! conat char*, int, )/ 

astern Int reed( int. char*, int ); 

char *buf / 

char 'filename ■ *binq*/ 
int fd; 

int intaica. flootaira/ 
int *idim, *jdia. <kdim. n»-5; 
float ‘farnach, ‘alpha, *ra, *tima/ 
int bytaaraad; 

If ( (fd - open! fllanama. O_RD0HLY, 0)) — -1 ) aalt (0) / 

Int also ■ aiioof ( int )/ 
flootaira - airaoft float )/ 

buf - (char •> no Hoc ((unaiynad lany int) (3* int aira + 4 ‘float aira) ); 
raad( fd. buf, (3*lntelra ♦ 4*floatalca) )/ 

idlm - (inf) buf/ 

jdim » (int*) (buf + intalra)/ 

kdim - (int*) (buf + 2*lntaiea) / 

printf Cidim - «d. jdim - bd. kdim - »d\n‘. *idira. *jdira. *kdim ); 

famach - (float*) (buf + 3*lntalxa); 

alpha - (float*) (buf ♦ 3*lntelta ♦ flootaira)/ 

ra - (float*) (buf + 3*lntalro + 2*flootalra) / 

t ima - (float*) (buf ♦ 3*lntalra ♦ 3*f loot aira) / 

printf (‘famach • %f, alpha - bf. ra - bf, time - bf\n*. *femach. ‘alpha. *ra, 
•tima) » 
f rao (buf) ; 

buf - (Char *) mo lloc ( (unaiynad lony int) (*idim** jdim* »kdlm*nu*f loot aira)) / 
i f (buf — 0) orit(0>/ 

if( (bytaaraad - road! fd. buf, (unaiynad lony Int) ( *idim** jdim**kdlm*nx 
•flootaira)) ) — 0 ) orlt(O)/ 

cloao (fd) / 

roturn ((float*) buf)/ 


•aid MaxeryManayart float *«yr. float *q ) 


void Init eayo_parami {} 

( 

/• ldir ■ adapt dir(0)/ 
jdlr - adapt dlr(l); 
kdlr - adapt~dlr (2) / 

•/ coral 3_. iatap * FALSE; 
co«13_. Jetap - FALSE/ 
coral 3~.k atop - FALSE/ 
coral 3_. linear aa - TALSE/ 
com 1 3 _ . ji near •• - FALSE/ 
coral j^-kinvorao - FALSE; 
c^nH.-iJplyno ■ TkLSZt 
coral4_. ik piano » FALSE/ 
coral4_. jkplano - FALSE; 
ceral4 - .ok - TRUE; 


••itch ( cur_diroct ion ) ( 
cat a I J K:~ 

I 

coml3_. Jat ap - TROE; 
com 14 .ljplana - TRUE; 
brook! 

) 

caaa I J REVK: 

t 

coml3_. jetap - TRUE; 
coral 3_. kin voraa “ TRUE; 
com!4 - . ljplana - TRUE; 
braak! 

) 

caaa IREVJ K: 

( 

eoral3_. jetap - TRUE; 
coral3_. jlnvoraa “ TRUE; 
coral4_. ljplana “ TRUE; 
brook/ 

) 

cat a I RSVJ_REVK : 

( 

coral3_. Jat ap ■ TRUE; 
comil - . j invar * a - TRUE; 
c oral 3_.k invar to - TRUE; 
ceral4 — .ljplana - TROE; 
break; 

» 

cat* RTVIJK: 
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ktMki 

) 

com REVK_R£VI_J: 

( 

coral 3 _.iatap m TRUE; 
corol 3_ . i invar •• - TRUE; 
coral 3_.j invar •• - TRUE; 
cotnll_. ikplon* - TRUE/ 
kiNkr 

» 

can REVKRTVIREVJ: 

I 

coroll_. i atap - TRUE; 

coml3_.i invaraa “ TRUE} 
coml3_. j invar ee - TRUE; 
coral3_.k invaraa ■ TRUE} 
coral! _. i kp 1 an* - TRUE/ 
break; 


car* S J I: 

I 

coml3_. j (tap - TRUE/ 
coral!_. jkplana ■ TRUE/ 
break ; 

I 

can K J_REVI: 

I 

coral3_. jatap - TRUE; 
coml3_. k invar •• » TRUE; 
cooil. jkplon* • TRUE; 
brack; 

1 

cat* K REVJI: 

( 

coral 3_. jatap - TRUE; 
cool3_. jlnvaraa “ TRUE; 
cooll_. jkplana - TRUE; 
brack ; 


I 

can K REVJ RE VI: 

I 


coml3_. jatap - TRUE; 
coml3_. jlnvaraa ■ TRUE; 
coral 3_.kinv*r«* » TRUE; 
coral! .jkplana - TRUE; 
brack? 


caaa REVK_J_I : 

( 

coral3_. jatap - TRUE; 
coml3_. i invara* - TRUE; 
eoml!_. jkplana - TRUE; 
brack; 


I 

caaa REVKJREVI : 


coral 3_. jatap - TRUE; 
coml3_.i invaraa • TRUE; 
coral3_.k invara* “ TRUE; 
comil .jkplana - TRUE; 
brack; 

I 

caaa REVRREVJI : 


sageiSuppOTtc 

« 

c«ral3_ . jatap - TRUE; 
coral 3_.i in vara* - TRUE; 
coral3_. jlnvaraa • TRUE; 
coral! .jkplana - TRUE; 
brack? 

J 

caaa REVKREVJREVI : 

t 

coral J_. jatap - TRUE; 
cera 1 3_. i invaraa - TRUE; 
coral3_. jlnvaraa - TRUE; 
coral 3_.k invaraa - TRUE; 
coral!_. jkplana - TRUE; 
brack? 

} 

default : 
break; 

I 

com!. Iran* ■ qridiagar -> 
cora!_. jmaa - gcid_*eger -> 
co«a!_. kmoa “ grid'aegar -> 
Cora!_. let “ grid_aagar -> 
coral. land “ grid_aager -> 
coral _. jit - grid~aager -> 
eom!_. jand - grid_aager -> 
com!_.kat - grid_ieger -> 
com!_.kand » grid_aager -> 



rangaa (I) [DIM] ; 
rangaa (J)(DIM); 
rangaa (K] (DIM) ; 
rangaa (I] (START]; 
rangaa (I) (EHDj; 
rangaa (J] [START] ; 
rangaa (J] [END]; 
range# (E] (START]; 
rangaa (K] (END); 



J 


Mafina XYZ(k_inc. j_inc. i_ine , ayt_inc) * (xyz+k inc«dato jmax*data lraaa"’3+j ine'data inaia* 
3+i_inc»3+ay*_inc) ~ ~ 

fdaflna^Q (k_inc. j_inc, i_ine.n_inc) * <q+k_lnc*dete_jRma*deta_imaa*RDlM+j_inc*data imx'BOI 


void 5htp_deta< 
float *aya, 
f loot *q 


int 

i_inc. J_inc, k_inc, n_inc; 


for ( k_inc - 0; k_ine < data_kn»a; k inc++ ) ( 
for( j_inc - 0? j_ine < dltajmaa? j ine+a ) ( 

for ( i_inq - 0; l ine < deta_ima*7 i_ine*-+ ) ( 

coraay*_.*[k_lnc] [ j incHi inc] -XYZ(k_inc,j inc, 1 inc.O); 
coo«y*_.y(k_lnc] [j lncHi inc] «XYZ(k inc, j“lnc. i“ine, 1) ; 
comayr_.r (k_inc] [ j_inc) [ i_inc] - XYZ(k“ine. j“inc, i'inc. 2) ; 
for( n_inc - 0; n inc < 5; n inc++ ) (“ 
comq_.q(n_inc|Tk_ine] (i_inc| 

■ Q(k inc. j_inc.i inc.n inc); 

] ~ ~ 
t 



aid Unahip_deta( 
float « q y * 


int 

i_ino, j_inc, k_inc, n_inc; 

fori k_inc - 0; k_inc < date_kmaa; k_lnc++ ) ( 
for ( j_ino - 0? J_inc < dat«_jroa; j_inc+a ) ( 
for ( i_ine ■ Oj i_ine < date_imaa; i_ine++ ) ( 

XYZ(k_lnc, j_lnc. i_inc,0) » eonayr .a(k inc] (j ine] (i incj; 
XYZ(k_lno, jinc. i_inc, 1) - comay« - .y (k“ine] (j'incj (i“inc); 
XYZ(k_ine. j^inc, i_ine,2) - coraay*_.r (k_lnc) ( j^inc] (i~lnc) ; 
for( n_inc - 0; n_inc < 5; n_lne++ )(~ 

0(k_inc, j_inc.i_ioe,n inc? 

“ coenq^.q (n~inc ] [k_inc ) ( jinc J (i_lnc ] ; 

J 

» 

( 


| sagerSuppoitc 

i£( com5_.indq > IHDQ_MIH ) ( 
corabTindq — ; 

• pr int f (PRL_ACCESS (Typain, type in__lndq. atr) .TYPE IN IBDQ FORMAT, coraS . indo) ; 
pnl_fiaact (typelnindq) ; 


void Raaat indq (Actuator «ect) 

< 

cora3 . indq - INDQ_I8I; 

apr int f (PNl_ACCESS (Typain. type in_indq, at r) . TYPE IN INDQ FORMAT. com5 .indq); 
pnl_fiaact(typain_indq); - - - 


void Up mgl (Actuator *octJ 

I 

if ( com9_.mgl < MC1_MAX) ( 
com9_?mg 1 ++; - 

aprintf (PSI._ACCE3S (Typain. typain mgl, atr), TYPEIN MCI FORMAT, com9 mal); 
pnl_fiaact (typain rag 1); “ ~ ~ 

I 

] 



undaf XYZ 
undaf 0 


old 0p_nedge (Actuator *aet) 

if ( co«9_.nedge < NEDCS_MAX ) | 

aprintf (P»l_ACCE3S (Typain. typain _nadga, atr) .TYPEIN HEDGE FORMAT, com9 .nadga) ; 
pnl_fiaact (typain nadga); 

I 


»id Do un_nedg a (Actuator *act) 


void Down mgl (Actuator «ect) 

I 

if ( cora9_. mgl > MC1MIB ) | 

cora9_.mgl — ; 

apr int f(PNL_ACCESS (Typain. typain_ragl, atr). TYPEIN MCI FORMAT, cora9 .oral); 
pnl_fiaact (typain mgl); 

1 


void Raaat mgl (Actuator «act) 

A 

cora9_.mgl - MC1_INI; 

apr int f (Ptn,_ACCESS(Typain, typain_mgl, atr) .TYPEIN MCI FORMAT. co«9 .mgl) ; 
pnl flaact (typain mgl); 

I 


If l co«9_. nadga > SEDGE JIIS ) | 
cora9_.nadga — ; 

a pr int f(pn._ACCESS (Typain. typain_nadga. atr), TYPEIN HEDGE FOIWAT, coraS .nadga); 
pnl fiaoct (typain nadga); " “ 

1 


> id Re act _nadga | Actuator *act) 
com9_. nadga - MEDCBIBI; 

a pr i nt f ( PNL _ACCES3 (Typain. typaln_nadga, atr). TYPE IB HEDGE rORHAT,cora9 .nadga); 
pnl_fiaact (typain_nadgo) ; 


>ld Op indq (Actuator *act) 

if! cora5_. indq < IHDQ_MAX) ( 
coctx 5_. indq I-+; 

aprintf (PSL_ACCESS (Type in, typain indq, atr) .TYPEIH IHDQ FORMAT. coraS .indq); 
pnl f iaact (typain indq); 

I 


>ld Dawn_indq (Actuator *oct) 


void Up_mg2 (Actuator *act) 

l 

if ( com9_.mg2 < HC2 NAX) ( 
cera9_.mg2 ++; ~ 

apr int f (PNL_ACCESS (Typain, type ln_rag2. atr) .TYPEIN MC2 F0IWAT.cora9 ,tng2) ; 
pnl_fiaact (typaln_mg2) ; 

» 

void Down_mg2 (Actuator »oct) 

( if ( cora9_.mg2 > MC2_MIH ) | 
cora9_.mg2 — ; “ 

apr int £ (PNL^ACCCSS (Typain, type in_mg2, atr) , TYPEIH HC2 FORMAT. cora9 ,mg2) ; 
pnl fixact (typain mg2) ; 

I 

I 

void Re*et_mg2 (Actuator *oct> 

( 

cora9_.mg2 - MC2_IHI; 

aprintf{PHL_ACCESSlTypein. typain jng2, atr). TYPEIH MC2 FORMAT, cora9 ,mg2) ; 

pnl_fiaact (typain mg2) ; ~ “ 

I 

void Up_mgatapa (Actuator *oet) 
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|iM 


^K C1 5 


iei eorall .njatepa < MGSTEPS MAX) < 

■ print f(PNL_ACCES3 (Typain, typaln_n flit . atr) . TYPEIB BFILT FORMAT, corail .nfilt); 
pnl fixact (typain nfilt); 

coral 1_. mg »tap« ++; 

■ print f (PHLACCESS (Typain , t ypeinjng atepa . atr ) . TYPEIB_MC3TEP3rORMAT. coral l_.rr»j at ap. 

1 

) 

pnl_fixact (typain mq»t ap* ) ; 

void Raaat_nfi It (Actuator *act) 

» 

corail .nfilt » STILT INI; 

Told Dovo_mg«t«pa (Actuator *®ct) 

aprintf (PHL_ACCE33(Typain.typaln_nfilt. atr) .TYPEIB BFILT FORMAT. eorall .nfilt); 
pnl_flract (typain_nf ilt) ; ~ ~ 

if ( ctmll .mgatepa > MCSTEPS HIS ) { 

1 

corall_. mgatepa — J 

•print f (PNL ACCESS (Typain, typain mgatepa, atr) , TYPE IB MGSTEPS FORMAT. cool! -mgatapa 

void Op lntar (Actuator *act) 
1 

> 1 

if( comil .intar < INTER MAX) ( 

pnl f tract (typain mgatapa) ; 

corail .int or -*-*■; 

) 

1 

aprintf (PHLACCESS (Typain. typein_intar. atr), TYPEIH INTER FORMAT. oorall .lntar); 
pn 1 _£ tract (typaln_lntar ) ; 

void R4itt_tngft«pa (Actuator •cct ) 

) 

eorall .mgatapa « MCSTEPS IBI; 

void Down intar (Act uator *act) 

• print f (PSL ACCESS (Typain .typain mgatepa, atr) .TYPEIH MCSTEPS FORMAT. coral 1 .mgatapa) ; 

f 

pnl f tract (typain mgatepa); 

iff corail .intar > INTER HIB ) | 

) 

corail .intar — ; 

void Up_mgpli (Actuator *oct) 

aprintf (PSL_ACC£SS (Typain, typain_intar, atr). TYPEIB_IBTER_F 08 MAT, corail .intar) ; 
pnl_fixact (t ypeinintar ) ; 

if ( cemll .mgpla < MCPLS MAX) I 

1 

coral 1 .mgpla ++; 

a pr int f ( PSL ACCESS (Typain. typain mgpla. atr) . TYPEIH MCPLS FORMAT. comil .mgpla); 


pnl f tract (typain mgpla); 

1 

1 

eorall .intar • INTER INI; 

) 

• pr int f (PBL_ACCESS (Typain, typain_intar, atr) , TYPEIS_INTER_rORMA7, coral 1 intar) ; 

void Down_mgpl a (Actuator *oct) 


if I corail .mgpla > MCPLS MIS ) ( 


coral l_.mgpl ■ — ; 

void Op lnaing (Actuator *act) 

aprintf (PHL_ACCESS (Typain. typeinjngpla, atr) .TYPEIH_MCPL3_rORHAT.comU_.mgpla> ; 
pnl fixact (typain mgpla); 

( 

if( coralb .lnaing < L NS INC MAX) { 

) 

coml5 .lnaing +♦; 


• print f(PSL_ACCESS (Typain, typaln_lnaing, atr) . TYPEIM_LN3INC_rORHA7. comlS .lnaing) ; 
pnl fixact (typain lnaing) ; 

void Raaet mgpla (Actuator *act) 

1 

comll_. mgpla - MCPLS INI; 

aprintf (PSL ACCESS (Typain. typain mgpla , atr) . TYPEIB MCPLS FORMAT. eorall .mgpla); 

void Dawn In a ing (Actuator *oct) 

pnl fixoct (typain mgpla); 

i 

J 

if< comlS .lnaing > LNSINC MIN ) ( 


coralS .lnaing 

void Op nfi It (Actuator *act) 
( 

aprintf (PHLACCESS (Typain. t ypa ln_lnaing. atr) , TYPEIN_LNSINC_FORMAT. comlS .lnaing); 
pnl fixact (typain lnaing); 

if< corail .nfi It < STILT MAX) t 

1 

eorall .nfilt t+; 

I 

aprintf (PNL_ACC ESS (Typain, typain_nfilt. atr) ,TYPEI8_MriLT_roiWAT.comn_.nf lit) ; 
pnl_f tract (typain_nfilt) ; 

void Raaat_lnalng (Actuator *nct) 

) 

coralS .lnaing - LNSINC IHI; 

void Dowanf lit (Actuator *act) 

aprintf (PHLACCESS (Typain, typ* in_lnaing, atr) .TYPEIH LNSINC FORMAT. coralS .lnaing); 
pnl_fixact (typaln_lnaing) ; 

if( corail .n£ilt > STILT MIS ) ( 

1 

corall_. nfilt — ; 

void Opjp la ing (Actuator *oet> 

i»§ii§ 
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i 

pnl fixact (typain aub); 

if ( coral S.plaing < FLSISC_HAX) ( 

) 

comlS_. plaing ++■; 

) 

aprintf (PHLACCESS (Typain, typaln_pl aing. atr) . TYPE IB_PLSING_F0SMA7, coral 5 .plaing) ; 
pnl fixact (typain plaing); 

| 

void Raaat_aub (Actuator *«ct) 

) 

coral l_ .aub a S0B_IB1; 

void Down _plaing (Actuator *act> 

•pr int f(PBL_ACCES3(Typa in. typain_aub, atr). TY7EIS_SOB_rORMAT, coral* .aub); 
pnl_fixact (typaln_aub) ; “ “ """ 

iff coralS_. plaing > PLSIBC_MIS ) | 

1 

coral5_. plaing — ; 

void But rdarain (Actuator *act) 

•print f(PKL_ACCESS (Typain. typain_plalng, atr). TYFEIB_PL3IBC_F0RMAT. coralS .plaing) ; 

I 

pnl f tract (typaln_plaing) ; *" 

1 

1 

void Sld_rdsmin(); 

void Typain_rdamin () ; 

void pnl_dalact (Actuator*) ; 

void Raaat_plaing (Actuator *act) 

if ( but_rd*rain_f lag ) 

coral 5_. plaing “ PLSINC_IHI; 

( 

pnl_dalact (ald_rdarain) ; 

aprintf (PBL_ACCESS (Typain, typainjlaing. atr) , TYPEIB_PLSIBC_rORMAT,comlS_. plaing) ; 

pnl_f lxpanal (p«nal_aega_raoin) ; 

pnl fixact (typain plaing); 

) 

Typaln_rdarain () ; 


alaa 

void Op add (Actuator *«ct) 
1 

\ 

pnl_dalact (typaln_rdamin) ; 

if ( coral 1_. add < ADDKAX) ( 

pnl_f ixpanal (panaT_aaga_moin) ; 

c oral 9_. add 

Sld_rdamin 0 ; 

aprintf (PHL_ACCESS (Typain. typain_add. atr) , TYPEIS_ADD_F0*WAT.coml9_. add) ; 

■ld_rdamin->val ■ comS .rdarain; 

pnl fixact (typain add) ; 
) ” 

pnl_flxact (ald_rdamin) ; 

) 

but_rdamin_flag ” Ibut_rdamin flag; 

void Down add (Actuator *act) 
1 

void Sid rdarain () 

if( coral 9_. add > AOD_HIB ) | 

( 

coral? .add —) 

void Set_coe6_rdamin (Actuator*) ; 

aprintf (PHL_ACCESS (Typain, typain_add. atr) .TYPtIH_ADD_rORKAT.coml9 -add) ; 


pnl fixact (typain add); ~ ~ 

) 

1 

•ld_rdamin ■ pnl_nkact (pnl alldaroid); 
a ld_rdamin->x - panel_aage_x + SLD_RDSMIB X; 
•ld_rdamin->y - panal_aaga_y + SLD RUSH IN Y; 


• ld_r d ami n->m 1 n va 1 - SLD RDSMI N_H IN; ” 

void Raaat add (Actuator *act) 

\ 

• ld_rdamin->«n«xval - 3LD _ RDSMIN MAX; 
•ld3rdamin->v«l - SLD_RDSMIN_INI; 

coralS .add - ADD I SI; 

•ld_rdamin->upfunc ■ Sat_cora5 rdarain; 

aprintf (PSL_ACCESS (Typain. typain_add, atr) . TYF E 1 9_AD D _F 0 RMAT . coml9_.add) ; 

pnl addact (aid rdarain, penal aaga main); 

pnl_fixact (typaln_add) ; * ~ 

1 

> 

void Typaln_rdamin() 

void Op _aub (Actuator *act) 

1 

void Set _con£_rd main typain (); 

iff coral aub < SOB_MAX) | 

typein_rdamin - pnl_rakact (pnl typain); 

coral *_.«ub **t ~ 

typein_rdamin->x - panal_aaga~x + TYPEIH RD5MIN X; 

aprintf (PHLACCESS (Typain . type inaub. at r) , TYPE IN_SUB_F0RMA7. comil . Iu b) ; 

typain_rdamin->y a panalaaga y + TYPEIH RDSMIB Y; 

pnl_£ tract (typain aub) ; 

PHLACCESS (Typain. typein~rdamln.l«n> - TYPE IN_RLSH IN LENGTH; 

t 

) 

aprintf (PBL_ACCESS (Typain, type in_rdamin. atr ), TYPEIN_RDSMIN_roRMAT, cora5 .rdarain) ; 
typain_rdamin->up£une * 5et_com5_rdamin_typain; - - 


pnl addact (typain rdarain, panel aaga main); 

void Da ira_aub (Actuator *act) 

t 

iff coral l_. aub > 30BMIS ) { 

void Sot comS rdarain typain!) 

co*all_. aub — ; 


aprintf (PHL_ACC ESS (Typain, typain_aub, atr) . TYPEIS_SDB_rORMAT, coral l_. aub) ; 

float 
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tanp flo«t - o to ft TO. ACCESS (Typoin,typain_rdamin. rt t) ) ; 
if ( t«*_float < RDSMINJIIM ) 


con* . rdamin - RDSMIB_NIH/ 


al.o ifc tuv^flMt > RD3M*_KAX ) 


coed . rdmnin - RDSKIB_MAX; 


• prist f (PSL_ACCES3 (Typo In . typa! nr drain, *tz> . TYFEIB_roSMIN_rOM«T. « 


typain rdraav->y » panal aafo y * TYPEIB RD3MAX Y; 

PKL ACCESS (Ty pa l n, t y pal «Tr dam a. 1 an) - TYPE I ■ (U*9(AX LEHCTB; 

.print £ IP BL ACCESS t T ypa in , t ypa 1 n_r draax , at r ) . T Y PEI B_RDSMAX_F0(MA7 . ( 
typain_rdraox->upfunc - 8at_con6_rd*»aM_typaln; 
pnl_addact (typoln_rdraaa. panal_aa«a_maln) ; 


void 3ot_e«B5_rdran*_typnln 0 


void Sld_rd«mn*(); 

void Typain_rd«ma« t) / 

void pnl_d# Laet (Actuator*) f 

lf( but rd»ma« flap ) 

I 

pnl_dalact ( ■ ld_rd»mmx) ; 
pnl_f ixpanal (panal_aapa_min) ; 

Typain_rdama>0 I 


pnl_dalact (typa in_r draax) ; 
pnl~ f ixpanal (panal_«apo_jnain) ; 
31d_td*max() ; 

■ ld_r draax- >val ■ coo6_.rd*ma«; 
pnl~ f ixoct (»ld rdamnx) > 

) 

but_rdraox_f lap ■ 1 but _rd •«»*_£ lap; 


com5_. rdatnax “ tanp_float/ 


■ pr int f <PHL_ACCES3 (T ypo in , typa ii 


; r ) . T Y FE m_RDSHAX_F OIWAI . c 


void SldclamlO l 

void 7ypain_claml 0 ; 

void pnl_dalact (Actuator*) / 

if ( but c loral flap ) 

f 

pnl_dalact taldjcloml) » 
pnl~fi«panol (panal_aapa_main) » 
Typain_cla«l() ; 


void Sot _con6_rdraax () ; 

■ ld_rdraox - pnl_mkoct (pnl_» lidaroid) ; 
■ld_rd»mex->x “ panal_»opa_« ♦ SLD_RDSMAX_X ; 

■ 1 d~r damex- > y ” panal_*opa_y + SLD_RD3MAX_Y; 
» ld_rd*m« x- >ml n vo 1 - SLD RDSHAX_HIli f 

•Id cdsmaa-xnoavol - SLD~RD3HAX_HAX; 

• ld_rdimo>->vol - 3LD_RDSMAX_INI; 

■ ld_rd«moa- >up f unc - 3vt_cc.u5_rd.im a; 
pnl~addact ( »ld_rd.ma«, p« nvl_.op._ma in ) | 


pnl_dalact (t ypa in_c laml) ; 
pnl_fixpanal (panal_aapa_main) / 
Sld_cloml I) ; 

•ld_claml->vo 1 - comlO_ .clam(0 ] / 
pnl fixoct («ld_clvml) / 

) 

but_cloml_f lap - I but_claml_f lap/ 


typain rdtnai - pnl mbactlpnl typain) / 
t ypa i n“r draax- >x - paaol_aapoji ♦ TYPE 1H_R031A*_X; 


• ld_cl«ml ■ pnl mfcaetlpnl •lidaroid)/ 
•ld_cloml->a - panal_»apa_x + SLD_CLAM_X; 
■ld_cloml->y - panvl.epv y + SLD CLAM~Y; 

• Id c 1 ami - >tni n va 1 - SLD CLAM1 MINT " 

• ld_claml-Xno*Tol - SLD CLAM WAX / 

■Id claml->vel • SLD CL AMI INI; 


M 

. wXWi'S'ffi 

■ ld_claml->upf unc - Sot _c oral 0_c land I 
pnl_addact (*ld_claml, panal_»apa_nja in) j 


void Typain_claml () 

t 

void Sot _coralO_c land _t ypo in ( ) j 

typain claml - pnl_n*act (pnl typain); 
typaln*claml->» - penal. a pa ♦ TYPEIB_CLAM1_X; 
typaln~claml->y • pen.l_.vpv_y ♦ 7YPEIB CLAM Y; 

PNL ACCESS (Typain. typa in_claml. Ian) - TYPEIB_CLAM1_LE»CTH ; 

• prTntf (PNL_ACCES3 (Typain. typo in_cl ami , itt) ,7YFEIN_CLAMl_F0(8IAT,coml0_, 
typoin_claml->upfune ■ Sot_coml 0_cl aml_t ypaln ; 
pnl_adSact (typain_claml,panal_«apa_mnin> ; 


raid Sat_comlO_claml_typainl) 


taerp float - atoftPWl ACCESS (Typain. typo in jelanl. *tr> I » 
if ( tax* float < CLAM KIN ) 

I 

oocalO .olam(O) - CLAM MIN; 

I 

alia if( taap_ float > CLAMl MAX ) 

i 

ceolO .clam (0) - CLAMl MAX; 
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■ld_clam2 - pnl_n*act (pnl_» lidaroid) ; 

• ld_clam2-» ■ ponal_«opa_x + 3LD_CLMQ_X; 
« ld_c l«m2 ->y » p*nvl_«opv_y ♦ SLD_CLAK2 _Yj 
. ld_cl am2 - >ml nva 1 - SLD JCLAM2_MIN; 
•ld_clao2 ->mBKva 1 * SLD CLAM2_MAX; 
•ld~clam2->oal - SLD_CLAM2 _In 7; 
ald_clom2->upfune • Sot_coml0_clam2; 
pn l_oddact ( ■ 1 d_c lam2 . panal_*apa_ma In ) ; 


void Typa in_clam2 () 


void 8ot_coml0_clara2_typain () ; 

typain_claa2 • pnl_mkact (pnl_t ypa in) ; 
typain_clam2->x - panal >apa~x *■ TYPE IN CLAM2_X; 
typain_clam2->y - pa nal'.aga^y ♦ TYPEIH~ CLAK2_Y / 

PNL AC CESS (7y pa in, typain clam2.1an) - TY PEI »_CL AK2 _LENCTH ; 

• print f (PHl_ACCESS (Typain, typa in_clam2 , *tr) , TYPEI»~CLAM_rC«!AT, coml0_. 
typa in_clom2->upf unc - Sat_cuml0~clam2_t ypa in; 
pnl_addact (typain_alam2,panal_aapo_moin ) t 


oid Sat_cocil0_cla2u2_typvin () 


float 

tamp_f loat; 


com 10 .clam(l) - CLAM2_HIN; 


.printf <PML_ACCESS (Typain,typain_cla«l. atr) ,TYPEIN_CLAMl_rORMAT,co«10_.cl; 


contlO .clam 1 1 1 - CLAK2_KAX; 


void 81d_elam2 0; 

void Typain_olnra2 () ; 

void pnl_daTact (Actuator*) ; 

if( but eland flap ) 

t 

pnl_dalaet (•ld_elam2) ; 

pnl”f iapanal (panal_»apa_main ) ; 

T ypa inje land 0 i 


pnljdalact (typa tn_clam2) ; 
pnl'f irpanal (panal aaga min); 
Sld>lam2(); 

a ld_c lam2-> va 1 - comlO_.clam[ll; 
pnl~f iaact (>ld_clam2) i~ 


■ printf [PML_ACCESS (Typa in, typa in_c land, atr) . TYPEm_CLAM2_rORKAT. caml0_. clam| 1 ]) ; 


old But ctl (Actuator *oct) 


void Sld_etl(l; 

void Typa ln_ctl () ; 

void pnl_daloct (Actuator*) i 


pnl_da loct (»ld_ct 1) ; 
pnl_f lapanol (pano l_»apa_moii 
Typain_ctl O ; 


pnljdaloct (t y pvln_ct 1 ) ; 

pnl fixpanal (panal aapo main); 

Sld'ctlO; 
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•ld_ctl->val - coralO_.ct (0] i 
pnl_fluct (aid ctl)i 

\ 

but_ct - IbntjCt l_f lap; 


void Sid dll) 

I 

•old aat_comlO_ctl (Actuator) i 

■ ld_ct 1 - pnl_nfcact (pnl_*lidaroid) i 
ald_ctl-»x “ panol_*apo_x ♦ 5U)_C71_X; 
•ld_ctl-»y • ♦ SLDCTl^Y; 

•ld_ctl->rainval - C71 Mil; 

■ ld_ct 1-Mam 1 - C71KAX ; 

•ld_ctl->val - CT1_IBI; 
a ld_ct 1- > up fund - Sot_eo®10_ctl/ 
pnl_addoct (aldjctl, panol_aapo_aalD ) / 


void Typo in_ct 10 

l 

void Sot_comlOjctlJtypain () I 

typoin_ctl - pnljnkoct (pnl_typoin) » 
typain~ctl->x - panol_»opo_x + TYPE IN_CT1_X; 
typoin~ctl->y - penal at(t_y + TYPE IX CT1_¥; 

PNL^ACCESS (Typa in , C ypoln ctl. Ion) - TYPElS_CTl_LE9CTH/ 

a printf(FKL ACCESS (Typain . typoin_ct 1. atr) .TYPEIN_CTl_rOSWA2.coinlO_.ct [0]) ; 
t ypa in_ct 1- >ap fane - S«t_coralO_ct l_typain; 
pnl_addact (typoin_ct 1 . pan a l_«apa_ma in) I 


void Sot eoalO ctl typoinO 

l 

float 

t atnp_f loot / 

tamp float - atoflPXL ACCES3 (Typo in. typa in ctl. atr) It 
if I ton* float < CT1 MIX ) 

l 

ccralO .ct [0] - CT1 MIX; 

1 

alao if I tany f loot > CT1 MAX ) 

I 

coralO .ct [0] - C71 MAX t 

\ 

alao 

1 

C«Al0_.Ct (0) ■ tamp_f loot i 


•printf (PX1 ACCESS (Typaln.typoln_ct 1. atr) .TYPEIS_CTl_roiWAT.comlO_.ct {01) / 


void Sot ct 2 (Actuator *act) 

I 

void Sld_ct2()> 

void Typoin_ct2 () / 

void pnl_dolact (Actuator 4 ) ; 

if( but_ct2 flap ) 

I 

pnljdalact (ald_ct2) t 
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pnl__f ixpanal < peso l_aapo_ranin> ; 
Typoin_ct2 () l 

i 

alao 

( 

pnljdalact (typain_ct2) f 
pnl_fiapanal (panalaapamoln) / 
Sld_ct 2 () ; 

»ld_ct2->val - coml0_.ct II) / 
pnl'fixact (ald_ct 2) /“ 

I 

bot_ct2_f lap - I but_ct2_f lap ; 


void Sid ct2 0 

( 

void aot_coral0_ct2 (Actuator) f 

ald_ct2 “ pnl_(rfcoct (pnl_alidarold) / 
ald_ct2->« “ panolaapoi ♦ SLD_CT2_X> 
•ld_ct 2->y m panal aapo jr ♦ SLD_CT2 Y; 
a ld*~ct 2->minval - SLD CT2 MIX; 
ald*ct2->n»«val - SLD _ CT2 _ HAX; 
ald_ct 2->val - SU>_CT2_IxI; 

• ld_ct 2->upfunc - Sat_c««al0_ct2t 
pnl_addact (ald_ct2. ponal_aopa_meln) / 



void Typoin_ct2() 

l 

void S ot_coml 0_et 2__t ypo in {) ,- 

typoin_ct2 ■ pnl_n*act <pal_typoin); 
typain_ct2->« “ panol_aapa_a ♦ TYPEIX_CT2_X/ 
typa in Ct2->y “ panal vapory ♦ 7YPEIBCT2Y; 

PNL_AC CESS (Ty pa in. t ypoln ct2.1on) - TYPEIX CT2 LENGTH; 

apr int f (PBL_ACCESS (Typa in. typain_ct2 . atr) , TYPeIs_CT 2_FORHAT, coral 0_. ct 1 1 ) > / 
typain_ct2->upfunc “ Sot_coml0_ct"2_typoin» 
pal_addact (t ypa i n_ct 2 . paftol_aapa_main) ; 


void Sot coralO ct2 typoinO 
l 

float 

tomp_f loot » 

tamp float - atof (PNLACCESS (Typa In. typo in ct2.atr)); 
if ( Coup float < CT2 MIX ) 

l 

Cora 1 0_ . ct [1] - CT2 MIN; 
alao if( tarap float > CT2 MAX ) 

t 

cora 10 .ct 11) - CT2 MAX; 

1 

alao 

f 

coral0_.ct [ 1 ] - t a Refloat j 


ipr int £ (PHL ACCE S3 (Typo in. typa in_ct2. atr ) .TYPEIN_CT2_rORMAT. comlO_.ct (1 )) / 


void Bap^ramovo (Actuator 4 act) 
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t 

void Cot Rral JKparnaa () ; 

void MamoryitaManapar I float 4 , float 4 )> 
loek_cur _ob joct () / 

Cat RmlJXpar ansa () / 

adapt prld - (float 4 ) ahm attach! prid_aapor -> flold id* [GRID ZD) ) / 
adapt jl “ (float •) ihm_attach( prld_aapor -> fiald_ida (VECTORED | ) / 
KaraoryRnManapar ( adapt _pr id. adapt _q }; 

updato_actuator a () » 
updoto_f ld_data_ponol 0 / 

unlock_cur_ob jact I ) ; 
updata_objact_typoout 0 ; 


void CotRalJXparana () 


int line, j inc. kinc; 
float *ayr; 

prld_aapar -> dims (CR1DJTYPE) (I) . 
dot a _ led n - 1» 

data_lnax - undo_in»x - prid_aapoc -> dims [CRID_TY7E III); 

dot a” join - 1 ; 

doto_)rooa ■ undo_jmax ■ prid_aapar -> dim* [CRID_TYPE] [J) r 
data'kain - li - 

data^kzana - undo_kma* - prid_a«par -> dima (CRID_TY7E) |R]r 

data_*yr^_byt aa “ data_ima> 4 data_jraaa 4 data_kmax 4 XYZDIM 4 airaof ( float) t 
data jq_kytaa ■ data_lmax 4 dato_Jma« 4 data_krax 4 QDIX 4 airaof (float) > 

rmaat_iailn - prid^aapar -> ranpaa ( 1 1 (START ) ; 
rnaat_imax “ prid^aapar -> ranpaa [I ] [BSD] / 
rmiat_Jtnin " prld_aapar -> ranpaa (J H START ] / 
rmaat_Jma« ■ prid_aapar -> ranpaa (J ] [END) ; 
rmaat^knin - prid_aapar -> ranpaa [X J [START ) j 
nsaat'kmax - prid_aapar -> ranpaa (X HERD) » 


void 3atIJX_rmdeta () 

I 

int dimanalona (>)» 

d imam Iona (0) - rmaat imaa - rmaot_lmin ♦ 1> 

dimanalona (1) - rraaat - nnaat_Jrain ♦ 1 J 

dimanalona (2) • rraaat _kraa a - nn*at_kjnin ♦ 1; 

if ( 1 aat dot a_dim» (GRID ♦ prld_aapor -> ronaa (CRIDJTYPE ] (REC) , prld aapar -> conaa ICR 
ID TYFEUnD), dimanalona)) 

"l 

Error (’cannot aat fialdl\n’> i 
unlock_cur_ ok Jact () f 
• *lt (0) » 

I 

if ( I aat_data_dima (SOL OTIC* + prld_aapar -> roooa (VECTOR_TYPE) [REC]. prid^aapar -> co 


na a [VECTOR TYPE) (FLO), dimanalona)) 

l 

Error I ’cannot aot floldl\n*); 
unlock cur ohjoctOf 
oait (0)"j 

) 


void HomoryRsManapor ( float 4 xyr. float 'p ) 

I 

void Ship rmdatal float 4 , float 4 , float 4 , float 4 ); 
void SatIJK_rmdata () i 

mamepy ( (char •) unadopt_pr id. (char •) *yr, (aira_t) dato ry *_bytaa) j 
raaraepy ( (char •) unadapt~q. (char •) q. (aica_t) dota_q_bytao ) 7 
Shlp_rmdata( ay* , q. (float 4 ) unadapt_pr id. (float 4 ) unadapt jq ) » 

Sat I JX rrndoto 0 ; 

I 

Idafina XYZNEW (k_inc, j_lne. i_inc. *y*_lnc) 4 (*y rna«+k_inc’ rmaat_imoM*rraiat_iino a*l* j_inc*na 
iat_iraaa* )ti_inc *3+ay*_inc) 

Idafina QKEW (k Inc. j inc. 1 inc. n inc) * (qnaa-t-k inc’rmaat jni'cnav t imaa’HDM+j inc 4 nnaat 
_imaa 4 XDIM+i_inc*ND D<*n_inc) 

Idafina XYEOLD(k_lnc, j_ino,i_inc. xyr_inc) 4 (ry toldt (k_inc trmiat _kmin-l ) *data_ jma> 4 data_lm 
aa 4 3+ ( j_l net rmaat _jmin- 1) 4 dat a_lmaa*It ( l_inc+r ntaat _imln- 1 ) 4 J -t-ay *_inc) 

Idafina QOLD (k_inc. j_lnc, i_inc. n_inc) 4 (qold+(k_inc+rmaat_kmin-l) 4 data_jmaa 4 data_imaa 4 H0I 
M+ (J_inc+rmiat_jmin-l) 4 dat«_imaa*(rDIM+ (i_inc+rmaat_imln-l) *NDIMtn_inc) 

void Ship rmdata (float* xytnaw. float 4 qnaw. float ’aycold. float 4 qold) 

( 

int 

i_inc. j_inc. k_lnc, n_inc; 

print f (*imnx » Id. jmax ■ Id. kmex ■ ld\n" , rm»at_imex, rm»at_ jmax. rra*at_kmax) j 
prlntf (’imin • Id, Jmin - Id. kmin * ld\n". nn»at~imin, na»at~Jmin, nmat~kmin) > 
for( k_inc - Oj k_inc < rra*at_kmaa-rm»at_kmln+l ; k_lnc++ ) ( 
for ( j_inc ■ 0; j_inc < rra»ot_}raoa-rm»at _Jmin+lr )_inct* ) ( 
for ( i_inc ■ 0 j i^ine < rm* •t_iraoa-rmiat_lmintl; i_inc+-t ) ( 

XYZNEMIk inc. J~inc,i inc , Oj “ XYZOLD(k inc. j inc. 1 inc. 0 ) t 
XYZNEWI k~ine, J~inc, i~lnc, 1) - XYZOLD(k“inc, j“inc. l~inc, 1 ) t 
XYZNEW ( kinc, )“inc, i“inc,2) - XYZOU>(k”inc, J~inc. i“inc, 2) » 
for ( n_inc ■ 0? n_inc < 5; n_inct+ ) ( 

QNEWIk inc. j inc, i_inc, n Tnc) - QOLD (k inc. j inc.i inc.n inc)/ 

) 

) 

) 

» 

I 


lundof XYZHEW 
lundof 0NEW 
lundof XYZOLD 
lundof QOLD 

oxtorn int 4 pArpc/ 

•atom char 44 pArpar 

•old But calculator 0 

( 

int Calculator ( int pArpc. char 44 pArpa ); 








Actuator* aid ct2; 

Wufiaa SLD CT2 KIR 
Idaflna SLD - CT 2 — HAX 
Ida { 1m SLD _ CT2 IRI 
Ida fin* SLD _ C72“x 
Ida f 1m SLO'cMJT 

Actuator* but ct2/ 

Mofina BUT CT2 LABEL 
♦da fin a B07~"cT2“x 
♦daflaa BOT~CT2jr 

Actuator* typaln ct2; 
Idaflna TYPEIN_CT2 X 
♦daflaa TYPEIH_CT2 - Y 
♦daflaa TYPEIN_CT2 - LENCIH 
♦daflaa Tr?EIH~CT2 _ F0WAT 


sageiSupporth 


CT2 KIR 

C72~KAX 

CT2~IRI 

CI2~X 

CT2 _ r 


-CT2* 

CT2 x ♦ ct 2 x orrsci 
CT2 Y ♦ CT2~Y - OrrSCT 





Idaflna HCSTEPS X 

6.0 


Idaflna HCSTEPS Y 

6.4 


Idaflna HCSTEPS Y OTTSET 

0.65 


•daflaa HCSTEPS KIN 

0 


Idaflna HCSTEPS HAX 

20 


IdaflM HCSTEPS III 

0 


1 Actuator* typaln oaqatapa; 

idaflna TYPEIN HCSTEPS X 

HCSTEPS X 


Idaflna TYPEIN HCSTEPS Y 

HCSTEPS Y 


Idaflna TYPEIN HCSTEPS LABEL 

'HCSTEPS- 


Idaflna TYPEIN HCSTEPS LEBSTH 

6 


Idaflna TYPEIN HCSTEPS TORHAT 

-»6d* 


J Actuator* up mfotapa; 

Idaflna OP HCSTEPS X 

HCSTEPS X t 0.0 


Idaflna OP_MCSTEPS_Y 

HCSTEPSY ♦ MCSTEPS_Y_OrrSET 


Actuator* dawn 

Idaflna DOWN HCSTEPS X 

HCSTEPS X ♦ 1.155 


Idaflna DOWB_MCSTEPSJf 

HC STEP ST + HCSTEPS Y_Orr SET 


Actuotor* raaat mqrtapt; 

Idaflna RESET HCSTEPS X 

HCSTEPS X ♦ 0.575 


Idaflna RESET HCSTEPS Y 

HG STEPS Y + HCSTEPS Y OrTSET 


Idaflna R£SET_HGSTEPS_LABEl 

■R' 


Idaflna HCPLS X 



Idaflna HCPLS Y 

6.4 


Idaflna HCPLS Y OrTSST 

0.65 


Idaflna HCPLS KIN 

0 


Idaflna HCPLS HAX 

20 


Idaflna HCPLS INI 

0 


Actuator* typaln mgpla; 

Idaflna TYPEIN HCPLS X 

HCPLS X 


Idaflna TYPEIN HCPLS Y 

HCPLS Y 


Idaflna TYPEIN HCPLS LABEL 

"HCPLS' 


Idaflna TYPEIN HCPLS LENGTH 

6 


Idaflna TYPEIN HCPLS rORKAT 

"ltd" 


Actuator* upjnfpla; 

IBSl 







Idaflna RESET SOB X 

SOB X + 0.575 


•dafina RESET SUB Y 

sob y + sob y or r SET 


Idaflna RESET SOB LABEL 

-R' 


Idaflna HEDGE X 

0.0 


Idaflna HEDGE Y 

*.7 


Idaflna NE0CE Y 0FT5ET 

0.65 


Idaflna HEDGE KIN 

0 


Idaflna HEDGE MAX 

3 


Idaflna HEDGE INI 

0 


Actuator* typo in nodgo/ 

Idaflna TYPEIN NEDCE X 

HEDGE X 


Idaflna TYPEIN HEDGE Y 

HEDGE Y 


Idaflna TYPEIM HEDGE LABEL 

-NEDCE' 


Idaflna TYPEIN HEDGE LENGTH 

6 


Idaflna TYPEIN HEDGE FORMAT 

M4d' 


Actuator* up nadqa; 

Idaflna OP HEDGE X 

HEDGE X ♦ 0.0 


Idaflna OP_HEDCE_Y 

NEDCE_Y + NEDCB_Y_OrrSET 


Actuator* down nadqa; 

Idaflna DOWN NEDCE X 

NE0CE X ♦ 1.155 


Idaflna DOHN_NEDCB_Y 

NEDCE_Y ♦ NED CE_ Y_Or FSET 


Actuator* raiot nadqa; 

Idaflna RESET HEDGE X 

NEDCE X ♦ 0.575 


Idaflna RESET HEDGE T 

HEDGE Y ♦ NEDCE Y OrrSET 


•dafina RES ET_HEDCE_l ABEL 
/ ******* 

-R- 



Idaflna OP HCPLS X 
♦dafina OP~HCPLS_Y 

Actuator* dawn ragpla; 
♦dafina D0HB_MCPLS X 
♦dafina 00»Of“MCPLS_Y 

♦dafina RESET HCPLS X 
♦dafina R£SCT_MC PLS - Y 
♦dafina RESE T~ HCPLS - LAB EL 

HCPLS X * 0.0 

HCPLS - Y + HCPLS_Y_QTr SET 

HCPLS X a 1.155 

HGPLS~ Y ♦ HCP LS_ Y_0T rSET 

HCPLS X ♦ 0.575 

HCPLS Y ♦ HCPLS Y OTTSET 

-R* 



♦dafina add X 

0.0 

Idaflna ADD Y 

l.« 

♦daflaa ADD Y OFFSET 

0.65 

♦dafina ADD MIN 

0 

♦dafina ADD MAX 

100 

♦dafina ADD INI 

0 

Actuator* typaln add; 

♦dafina TYPEIN ADO X 

ADD X 

•dafina TYPEIN ADD Y 

ADD - Y 

♦dafina TYPEIN ADD LABEL 

-add- 

♦dafina TYPEIN ADD LENGTH 

6 

•dafina TYPEIN_ADD FORMAT 

“%6d" 

Actuator* up add; 

Idaflna OP ADD X 

ADD X + 0.0 

Idaflna OP_ADD_Y 

ADD - Y + A0D_Y_OrrSET 

Actuator* down add; 

Idaflna DOWN ADD X 

ADD X a 1.155 

f dafina DOMNJUJDJf 

A0D_Y ♦ ADD_Y_OrrSET 

Actuator* raaat add; 

Idaflna RESET ADD X 

ADD X + 0.575 

•dafina RESET ADD Y 

ADD Y ♦ ADD Y OFFSET 

Idaflna RESET ADD LABEL 

-R- 

•dafina SOB X 

2.35 

Idaflna SOB Y 

1 .8 

Idaflna S08 Y OFFSET 

0.65 

Idaflna SOB MIN 

0 

Idaflna SOB HAX 

100 

Idaflna SOB INI 

0 

[Actuator* typaln auk; 

Idaflna TYPEIN SOB X 

SOB X 

•dafina TYPEIN SOB Y 

SOB Y 

•dafina TYPEIN SOB LABEL 

-SOB' 

Idaflna TYPEIN SOB LEBCTH 

6 

Idaflna TYPEIN SOB TORHAT 

" ltd" 

Actuator* up auk; 

Idaflna OP SOB X 

SOB X + 0.0 

Idaflna CFJS03_Y 

SOS_Y ♦ SOB_Y_OTFSET 

Actuator* down tub; 

Idaflna DOMN SOB X 

SOB X ♦ 1.155 

Idaflna OOMNSOBJf 

SOB - Y ♦ SOB Y_OfTSrT 


sagerSuppoith 


Idaflna HriLTJC 0.0 

Idaflna RriLT~r I.I 

Idaflna NFILT~Y OFFSET 0.65 

Idaflna MFILT_MIN 0 

Idaflna NFILTHAX 10 

Idaflna NFILT_INI 2 


♦daflaa 1600 X 
♦daflaa IHDQ _ Y 
Idaflna INDQ - r orrfiET 
♦daflaa IHDQhTn 
I daflna INDQKAX 
Idaflna INDQ - IBI 

Actuator* typaln lndq; 
Idaflna TYPE IB INDQ X 
Idaflna TYPEIN _ IMD0 _ Y 
Idaflna TYPEIS'INDQ^LABSL 
Idaflna TYPEIB - INDQ — LERCTR 
Idaflna TYPEIH - IBDq2fCWIAI 

Actuator* op indqi 
Idaflna OP IBDQ X 
Idaflna DP~IHBU“y 

Actuator* dawn lndq; 
Idaflna DOUR INDQ X 
Idaflna D0MB~IR0Q~Y 

Actuator* raaat lndq; 
Idaflna RESET IKOO X 
Idaflna RESCT - INDg**Y 
Idaflna RESET - 1K0Q - LABCL 


IBDQ X 
IBDQ - Y 
’IBDQ* 


IBDQ X ♦ 0.0 

ihdq - y + iRt ; y^orrsET 


IBDQ X ♦ 1.155 
IBDQ_Y ♦ I BDQ_Y_0IT SET 


IBDQ X * 0.575 
ISDOjr ♦ I XDQ_Y_0rr SET 


Actuator* typoinnfilt; 
Idaflna TYFEIN_HFILT_X 
Idaflna TYPE IN_»rilT_Y 
Idaflna TYP£IN_NFILT_LABEL 
Idaflna TYPEIN_NFILT_L£MGTH 
Idaflna TYPE IH_NFILT_rOKMAT 

Actuator* upnfilt; 

Idaflna 0P_NrilT X 
Idaflna 0P_NFILT_Y 

Actuator* doun_nfilt; 
Idaflna DOWN_NTILT_X 
Idaflna DONN_KF I LT_ Y 

Actuator* ra«at_n£ilt; 
Idaflna RESET NFIL? X 
Idaflna RESE T_KF I LT_Y 
Idaflna RESETNF ILTLABEL 


Idaflna IBTERJl 
Idaflna IHTER_Y 
Idaflna IBTER - Y OFFSET 
Idaflna INTER - m7n 
Idaflna INTER - HAX 
Idaflna I!*TER - INI 

Actuator* typaln Intar; 
Idaflna TYPEIN INTER X 
Idaflna TYPEIN - INTER - Y 
Idaflna TYPE IN — INTER — LABEL 
Idaflna TYPE IN__INTER — LENGTH 
Idaflna TYPE IN - I6tTE REFORMAT 

Actuator* up Intar; 

Idaflna OP INTER_X 
Idaflna 0P - INTER_Y 

Actuator* down lntar; 
Idaflna D0MN INTER X 
Idaflna DOKX - I NT ER — Y 

Actuator* roaot lntar; 
Idaflna RESET INTER X 
Idaflna RE3ET - INTER - Y 
Idaflna RESET - ! NTER LABEL 


NFILT X 
NFILTJf 
"NFILT" 


NriLTX ♦ 0.0 

NrilT_Y * NriLT__Y_OFFSET 


2.15 

4.1 

0.65 


INTER X 
INTER - Y 
‘INTER- 


INTER X + 0.0 

INTER - Y ♦ INTER_Y_orrSET 


INTERJt + 1.155 
INTERY + I NTE R_Y_0FTSET 


INTER X a 0.575 

INTER - Y + INTERjrjJTFSET 


Idaflna HC1 X 
Idaflna KC1 _ Y 
Idaflna KC1~Y OFFSET 
Idaflna MC1 - MIN 




OF POOR QUALITY; 




sagerSuppqrt.h 


Id.fin. J X I 24 
•d«£in« J~ K~ REVI 25 
Id.fin. J REVS I 26 
Id. fin# j“rEVX_REVI 27 
Id.fin. REVJ K_I 26 
Id. fin. REVJ~t REVI 29 
Id. fin. REVJ “REVS I 10 
Id. fin. REVJ“rEVK~REVI J1 


Id. fin. K J I 40 
Id. fin. K _ J REVI 41 
Id. fin. K REVJ I 42 
Id. fin. K~REVJ_RIVI 4) 
Id. fin. REVK_J~I 44 
Id. fin. REVKJREVI 45 
Id. fin. REVK_REVJ_I 46 
Id. fin. REVK_REVJ_REVI 47 

Id. fift. FOR_I P7S -FOI 
Id. fin. REV_i“fTS "RE 1 
Id. fin. rOftI~LI» -roi 
Id. fin. R£V_I_lib "RE 1 
Id. fin. FOR_I FLA "FOI 
Id. fin. UvVmjL -RE 1 

Id.fin. F0«_J_PT3 ’FIX 
Id. fin. REV_J_PT3 -RE 1 
Id.fin. FOR_J_LI» "FOI 
Id.fin. REV_J~LIB -RE 1 
Id.fin. FOR_J_PLA -FOI 
Id.fin. R£V_JJ»LA -RE 1 

Id.fin. rOR_K_PTS "FOI 
Id.fin. REV_k_P7s -RE 1 
Id.fin. FOR _ K LIB -FOI 
Id.fin. REV~K~LIB "RE 1 
Id.fin. FORjTPLA "FOI 
Id.fin. REV_K~PLA -RT 


sagerSupporth 


.. i_pt»(] - REVIPT3. 
or~i lint] ” rt»_I_LIB. 
..~i — lin{] - REV_I_IIB. 

.rijuti - roR_i_Pi*. 
•»”l_fl.M - REV_I_PLA. 

or 3_pt.t] - FOR J_PT3, 
j_pt • [ ) - R£V~J ITS, 
or_j lin ( ] - FOR~J~LIB, 
•*' j “lin | ] - REV_J_L IB, 
orjjl* 1 1 - FOR_J_FLA. 
•»3}jl. [ ] - REV J P1A. 

or kjtil) - rOR S PTS. 

• t ] - REVKPTS. 
or~k lin [] - FOR_K_LI». 
•.~k~linU - REV K_LIB. 
or~kjl.il * FaR~S PLA. 

jl«l) - RlVVVlA. 

*dir*etioo_of_ijkl4»] [J] • 
for_ijt«, for_j_lin. 
for_ijt», for3^3l in - 
for_ijt». r.*_j_lin. 
£©r_i _ftt. r.._j3l in - 


cn kjti, for_i_lin, 
r.._kjt., for_i_lin, 
r.v_k_j>t., r.._i_lin, 
c.._k_pt., r.._i_lin, 

for_k_pt., for_J_lin, 
for_k_pt«, for_j_lin, 
for_k jt • , r.*_j_lin, 
for_k_pt*. r.*_J_lin, 

r.._k_pt ■ , f or_j_lin, 
r.._k_pt«, for_J_lin, 
r..__k_pt». r.*_j_lin, 
r«*_kj>t i , r.v_3_lin, 


int cnr_dir action - Oj 

Id.fin. PTS_DIRECTIOO 0 
Id.fin. LIB_DIRECTIOtf 1 
Id.fin. PLA_DIR£C7I0W 2 

Actuator 

*pt i_dir.ct ion, 
•lin_dir.ct ion, 
*plo_dir.ct ion ; 



Appendix B: CISS GUI with Source Code 


ORIGINAL page IS 

of POOR QUALITY 







1 

PHH 






If 

. . . 


^Makefile 










* 





fiestSupport .c \ 


# 

Makefile for fisst module 




fiset.f \ 


* 

* 

Instruct ion*: 




fisst Support ,h 


t 

make compiles cod* to opdat* executable filo 


* 

FAST library archiwe files 


i 

rook* clean remaw** object file* 



• 



* 

rank* clobber renow* ■ object file* and 

the executable file 





* 

make dirty touche* source file* 



FASTLIBS - $ (LIBDIR) libf ldpan.a \ 


« 

moke link remow** executable file 




S [LIBDIRI libf lddata.a \ 


* 

f 

make lint run* lint on each module 

source file 



$ { LIBDIR) libviewl .a \ 
$ {LIBDIRI libpanu.a \ 
$[ LIBDIRI libcmap. a \ 


i 





S {LIBDIRI libfpanel. a \ 


* 

include global definition* 




$ [LIBDIR) 1 ibmem.a \ 


« 





? [LIBDIR] libmodule. a \ 

5 f LIBDIR )1 ibobj .a \ 


j include ./Makefile. defs 




5 { LIBDIR) libl 1st . a \ 







$ 1 LIBDIR) libcps .a \ 


* 





$ ILIBDIRllibFgl.o 


# 

nust define CFLAGS here to be equal to: 






* 

$ [IFLAGS 1 -1 search poth for include file* 


"J 

include module definitions 


« 

} {GLOBAL DEFINES! -D global defines 

(e.g., -DDEBOG) 


# 



i 

5 [GLOBAL CFLAGS | e.g., -g, -02 and other optional flag* 





« 




include . ./Mak«f il« .dvfa 


« 

i 

(MYFLAGS ia for additional flag* you may want to 

add after these) 





I MYC FLAGS - 






CFLAGS - 5 I IFLAGS ) J t GLOBAL DEFINES | $ [ GLOBALCf LACS } 5 [MYCFLAGS | 





FT LAGS * -at at ic -mp -pfo -KK, -0=5. -DR =2. -OR2-200 

-LM-20000, -LM2-50000 





i 

« 

external library link flag* 






| LFLAGS - -lgl > -lb.d -lm -1F77 -1077 \ 







-1177 mp -1177 mp CO -1X77 -1177 GO \ 

-1077~-1077 CO -li.om -lisara GO -lm \ 













f 

1 

f 

module application executable file 






HOD - $ | INSTALLDIR } f i lit 






t 

t 

object file* 






MOOOBJS - main.o \ 







panel*. o \ 

f last . o \ 

fiaat Support .o 






f 

« 

f 

source files 






j KODSRC - main .e \ 







panel*. c \ 












k, . . .. 

MHWi - 


%; fisst.ff - 



subroutine imogeftr.q) 



c 

Write!*,*)* a if there is a single grid.' 






c 

Read (*,' (al)')nulain 


c 




c 

write!*,*)' Input the computational freest ream density.' 


c 

Author : 



c 

read ( *. *) rhoO 


c 

Leslie A. Yates 



c 

write!*,*)' Input the experimental free stream density. ' 


c 

Eloret Institute 



c 

write!*,*)' (froction of STD walue) . ' 


c 

NASA Ames Rsieerch Center 



c 

read!*,*) rhoinf 


c 

Koffett Field. CA 94035 



c 

writ*!*,*)' Input the length used for nondimen slonoli rot ion . ' 


c 

(41b) 604-3436 



c 

read! *, *) el 


c 




c 

write!*,*)' Input the number of passes. If the symmetry plane ia 


c 

Date: 



c 

write!*,*)' normal to the image plan* and if symmetry conditions 


c 

December, 1991 



c 

write!*,*)' were used in the computation, double the number.' 


c 




c 

read! *, *) pass 


c 




c 

if (ctype . eq. ' 3' ) then 



character*l image, knife 



c 

Write!*.*)' What are pai, theta, and phi for the rotation?' 



character*12 filenam, gname. qnam* 



c 

read <*, *) pel, that a. phi 



character * 1 nulsin. ctype 



c 

end if 



logical mod (600001) 



c 

if (Ctype . eq. ' 2' ) then 


c 

dimen. ion q (51 *51 *61* 3) . r ( 51 *51 *61*3) 



c 

Write (*.*)' What is the thickness of the 2-D flow?' 



dimension q (1) . r ( 1) 



c 

read!*. *)dx 



dimension jditn(lO), kdim(lO). ldim(lO) 



c 

end if 






c 

if ( (ctype .eq. ' A' ) .or . (ctype.eq. ' a ’ ) ) then 



integer imagerErr 



c 

Write!*,*)' How many planes from 0 to 90 degrees (180)?’ 






c 

read (*. *) nphi 



conron/dota/ n.ub(10), jsubl (10, 10) . jsub2 (10 . 10) . 

ksubl (10, 10) . 


c 

if (nphi .gt . 180) nph i-180 



. k*ub2 (10. 10) , laubl ( 10, 10) , l*ub2(10,10) 



c 

end if 



common / imag e/Ixma x , Iymax.mod, p (600001,4) 




CD - 0.000292/1.293 



coircnon/subjkl/ jdim(10) , kdim(10) , ldim(10) 







cormon/integ/ngrid, npt *, rhoO, rhoinf ,al, pass, pai, theta, phi, dr, nphi. 


c Get 

stretch and centers of the multiple grid. This information will be 



1 gstrch, strch.ctype, rails in 



c us«d to placo tho Imago In tho cantor of tho grid* 



c onrno n / a had ow/ c am* r a 




print*, “ct ype=" , ctype 



comon/s chi /knife 




If (ctype.eq. * 3' ) Call Multi3 (mu Is in, gname , ngr id, jdim, kdim, ldim, 



conron/i nterf/awl, cons . wert, horir.type 




pai, theta, phi, Imnax, Iymax, strch, xcg, ycg, r ) 



character*l type 




if (ctype. n*. ' 3'}Call Multl2 (ctype, tailsin , gnome, ngrid, jdim. kdim. 







Ixmax, Iymax, strch. xcg. ycg. r) 


c 

equiwalence (q(l). p(l,4)) 







print *."imagef" 



c Initializo tho intogrotion plan** and tho modal mask. 


c 

write (*, *) 






c 

write!*.*)' How many point* would you like to use 

to define' 



Do 50 j-1.3 


c 

write!*,*)' the image plane (up to 600,001)7' 




Do 50 i-1, Ixmax* Iymax 


c 

read!*, *)npt* 




p (i, j)-0.0 


c 

if (npt a .gt . 600001) npt a *6 00001 



50 

Continue 



Iymax-1 




Do 60 1-1, Ixmax*Iymax 


c 

write!*, ») 



60 

mod(i)e. FALSE. 
Continue 


c 

Input parameter*: grid name, etc. 




print *. ’'ngrid-". ngrid 
Do 100 ng-1. ngrid 


c 

Mrite (* , *) ' What i* the grid nam*7' 






c 

Read ( * , ' (a 12) ' ) gname 




nj - jdlm(ng) 


c 

Write!*,*)' What i* the flow field name?' 




nk - kdlm(ng) 


c 

Reed ( * , * (a 12) • ) qname 




nl - ldlm(ng) 


c 

write (*. *) 




print ‘."Entering Getrq" 


c 

write(*,*)' Input the type of calculation.’ 




if (ctype .eq. * 3' ) 


c 

writ*!*,*)’ 2 for 2-dimen* ional' 




Call Gatrq3 (gname, qname, mu Is in, ng .ngrid, r , q, n j, nk, nl) 


c 

write!*,*) ’ A for axi -symmetric' 




if (ctype. no.’ 3') 


c 

write(*,*) ’ 3 for 3-dlmensional' 




Call Get rq2 (gname, qname, mul sin, ng. ngr id. r,q. nj, nk) 


c 

Read (*, ' !al) ' ) ctype 






c 

if (ctype.eq. 'a* ) ctype-' A’ 



c Get 

the index of refraction minus one 


c 

writ*!*,*) 




print *. “Entering deln" 


c 




Ca 11 da In (q, n j. nk, nl, rhoO, rhoinf, GD, delnO) 








ORIGINAL 


OF POOR 


PAGE IS 
QUALITY 


t 







l Mmj 



iiirsi« 

*11111 : . - i: fisstf 


UUni 



C 

wr its (8, ’ (4014) ’ ) (int (p (1,4) ) . i-1, Ixmox* lymax) 


c Rotate and stretch the grid. 

C 

close (8) 



print *. "Entering view" 





if (ctype.eq. '3') Coll view3(r. nj.nk.nl, psi. 

c 

write!*,*) 



theta, phi , »tr ch, xcg . ycg) 

c 

write!*. *)’ Do you want another image (y/n) ?’ 



if (ctype.ne. ' 3' )Coll view2 (r. nj , nk , strch, xcg . ycg) 

c 

read (*, ’ (al) ’ ) image 




c 

if (image. eq. ’y’) go to 5 


c Zero out points associated with the model for 3-D flows or for points 




c not 

cov«r*d by the grid for 2-D end axially symnetric flows. 

c 

write (*, *) 



print *, "Entering model" 

c 

write(*,*)’ The adjusted image sizes are ’ 



if (ctype.eq.’ 3’) Cell model ( ng. r , nj . nk. nl) 

c 

write (*,*) Ixmox,’ by ’.lymax. ’ pixels.’ 



print *, "Entering Grdovr" 

c 

xl - - xcg/strch 



i f (ctype .ne. ' 3 ' ) Coll Grdovr (ng, r.n j.nk) 

c 

x2 - xl + float (Ixmox) /strch 




C 

yl - - yeg/streh 


c Integrate through the flow field 

c 

y2 - yl + float (lymax) /strch 



print *, "Entering Integ, ctype-" . ct ype 

C 

write!*, *) 



if (ctype.eq.' 3') Call Integ3(ng. r . q, n j. nk, nl, delnO) 

c 

write (*,*)’ The values for the corners of the image are:' 



if(ctype.eq.'A')Coll Int egA (ng. r.q.nj.nk, delnO, nphi) 

c 

write!*,*)’ xl. x2: ’.xl.x2 



if (ctype.eq. r 2')Call Integ2(ng,r,q.nj.nk, delnO, dz) 
print *,*Left Integ" 

c 

wr lte (*,*)’ yl, y2 : ’.yl,y2 


100 

cont inue 

c 

ImageErr - drowimage (Ixmax, lymax, p (1 , 4) ) 



do 110 j-1,4 


print *, 'leaving image f" 



do 110 i-1 , Ixmax* Iymox 





if (mod(i) )p(i. j) -0.0 


ret urn 


110 

continue 


end 


c Query as to the desired image 









c 

Write!*,*) ’ Input the type of image you wish to create' 




c 

Write(*,*)' i for Inter ferogram' 


Subroutine Mu It 13 (mu lsin . gnome , ngr id, jdim. kdim. ldim. 


c 

Write (*.*)’ ■ for shadowgraph ' 


. psi.theto.phi, Ixmox . lymax, str ch, xcg , ycg , r) 


c 

Write!*,*)’ k for schlieren ' 

Read (*, ’ (al) ' ) image 

If ( image .ne . ' i ' ) go to 10 




c 

c 





c 



c Form infinite fringe and finite fringe inter f erogr ana . 

c 

Leslie A. Yates 




c 

Eloret Institute 


c 


c 

NASA Ames Research Center 


c 

read (*, *) awl 

c 

Moffett Field. CA 94035 


c 

cone - «.0*atan(l .0) *al*pa. ./ (awl* strch) 

c 

(415) 604-34 36 


c 

call fr inges (cons, filenem) 

c 



c 

go to 2 0 

c 

Date: 




c 

December. 1991 


C 10 

if (image. ne. 's’ )go to IS 

c 



c 

write!*.*) ’ Input distance of focus plane from the flow field.' 




c 

read (*, *) camera 


character* 12 gnome 


c 

camera-camera* st rch'ol 


character*l mulsin 


c 

call shadowg (camera, filenom) 


dimension jdim(10), kdim(lO) , ldim(lO) 


c 

go to 20 


dimension r(l) 


C 15 

write (* , *) 


common /dot e / nsub ( 10) , jsubl (10. 10) , j.ubZ (10. 10) , ksubl (10, 10) , 


c 

write!*,*)’ Input the direction of the knife blade.’ 


. ksub2 (10. 10) . lsubl (10, 10) , l.ub2 (10, 10) 


c 

write(*,*)’ h for horizontal ' 




c 

write(*,*)' v for vertical ’ 


twopi-8.0*aton (1.0) 


c 

read (*, ' (Al) ' ) knife 


d2rad - twopl/360 . 


c 

call schlieren (knife, fllenam) 


ps i -pa 1 *d2 rod+t wo p 1 
theta— theta *d2rad-ttwopi 


20 

do 120 i-1, Ixmax'Iymax 


phi-phi*d2rod+twopi 



if <mod(i))pU.4)-0.0 




120 

continue 


cospal-cos (psi) 
a inpsi— sin (psi) 


C 

open (unit-8, file-filenom. status-’ unknown' ) 


coathe-cos (theta) 







wmmm 



liplll 

wmmm® . ^ - fisst f 



v.v.%% 

<VWW*WAW*<v.v -.'.v v.v .*.*.v.*.v,v.\v.v. .v.v.v.w.- \ .\\\*.*.w\ v.v.v.w.- V.v.v. .v.v.v. • .v.v.v. v.v.v 





s int h e-s in ( t het a) 


ymin = rot21*r ( jsubl (1, 1) *ksubl (1, 1) *lsubl ( 1. 1) ) 



cotph i— cos (phi) 


. +■ rot22*r ( jdim(n) *kdim(n) *ldlm|n) 



s inph i-s in (phi) 


+jsubl(l, 1) *kaubl(l, 1) ‘lsubl (1,1) ) 





. + rot 2 3* r ( jdim(n) *kdim(n) *ldim(n) *3 



rotll- costhe*cospsi 


* jsubl (1,1) 'ksubl (1.1) 'lsubl (1.1)) 



rotl2- coithe’i inpsi 


ymax— ymin 



rot 13=-s inthe 


end i f 



rot21— s inphi*s int he*coip*i - cot phi *s 1 nps i 


do 100 m-l,naub(n) 



rot22- S inphi*s int he*s inpsi + co tph i*co apt i 


do 100 1 -lsubl (n,Ri) , laub2 (o, m) 



rot23- s inphi*cost he 


do 100 k “ksubl (n, m) , ksub2 (n ,m) 





do 100 j-jsubl (n.m) , j*ub2 (n.m) 



rot31- cotphi*slnthe*cospsi + sinphi** inpa i 


npt - j + (k-1) *jdira(n) + (1-1) * jdim (n) *kdlm(n) 



rot32- coaphi*. int he*a inpsi - sinph i*co tpa 1 


anewx - rotll'r(npt) 



rot33=> cosphi*costhe 


. + rot 12 *r ( jdim(n) *kdim(n) *ldim(n) + npt) 

. +■ rotl3*r( jdim(n) *kdim(n) *ldim(n)*2 + npt) 


c 

open (unit-15, file-gnome, etotus-’old’ , form-’ unformatted’ ) 


anewy - rot21*r(npt) 



ngrid=l 


. + rot22*r( jdim(n) *kdim(n) *ldim(n) + npt) 


c 

if (nulsin.eq.’m’) read (15) ngr id 


, +■ rot23*r( jdim(n) *kdim(n) *ldim(n) *2 +• npt) 


c 

read! 15) (jdim(n) , kdim(n) , ldimln) . n-l,ngrid) 


xmin»*minl (xmin, anewx) 


c 



xmax-omoxl (xmox. anewx) 


c 

do 20 n-l.ngrid 


ymin-ominl (ymin. anewy) 


c 

write (* . *) 


ymax-amaxl (ymox.onewy) 


c 

write(*,*)’ foe grid ’. n. ’ , the nj. nk. and nl are ’, 

100 continue 


c 

jdim(n), kdim(n), ldim(n) 

C 50 continue 


c 

write!*,*) ’ How many aubseta of thia grid would you like?’ 

C 

e lose (15) 


c 

read (*, *) naub (n) 


print*, "jenin. xmax, ymin, ymax" . xmin, e»>, ymin, ymax 


c 

do 30 m— 1. naub (n) 


print*, "jdim, kdim, ldim" . jdimU ). kd im( 1) , ldim ( 1) 


c 

write (*,*)’ For sublet ’ , m, ’ input jmin, jrrox, kmin, ki»x, ’ 


if ( (xmin . eq. xmax) .or. ( ymin . eq . ymo x) ) then 


c 

write (*,*)’ lmin, and lmax.’ 


write{*,*)’ Dots In this view all lies along a single line.’ 


c 

read ( *, *) jsubl (n.m) , Jsub2 (n,m) , ksubl (n, m) , kaub2 (n.m) , 


write!*,*)’ No further computations will be performed.' 


c 

. laubl (n,m) , liub2 (n.m) 


at op 


c 



end if 


c 

jaubl(n.m) -max0(l , jsubl (n,m) ) 

c 



c 

jaubl(n.m) - minO ( jdim <n) . jaubl (n, m) ) 

c To minimize the size of the image, Innax and lymax ore adjusted to that 

the image 

c 

jaub2(n,m) -maxO(l. jaub2(n,m)) 

c does not extend beyond the computational domain. 


c 

ja ub2 (n.m) - minO ( jdim In) . jaub2 (n.m) ) 

c 



c 



ratio - (xmax -xmin) / < ymax-ymin) 


c 

ksubl (n , m) -maxOd. ksubl (n.m) ) 


lymax - int (sqrt If loot ( Ixmax) /rat io) ) 


c 

ksubl(n.m) - minO (kdlm (n) , ksubl (n.m) ) 


Ixmax » int (sqrt (ratio'float (Ixmox) ) ) 


c 

ksub2(n,m) - maxOd, ksub2(n,m)) 


Ixmox - int ( (Ixmax+ll /2) *2-1 


c 

ks ub2 (n.m) « minO (kdlm (n) , ksub2 (n.m) ) 


xstrch-Ixmox/ (xmox-xmin) 


c 



ystrch-Iymox/ (ymax-ymin) 


c 

ltubl(n.m) -max0(l, lsubl(n.m)) 


strch - aminl (xatreh. ystrch) 


c 

liubl(n.m) - minO (ldim(n) . l.ubl (n.m) ) 


xcg - (Ixmax - strch* (xmox+xmin) ) /2 . 


c 

1 sub2 (n.m) - maxOd ,lsub2(n.m)l 


ycg - (lymax - strch* (ymax+ymin) ) /2 . 


c 

lsub2 (n, m) - minO (1 dim (n) . Isub2 (n.m) ) 


r«t urn 


c 

C 30 

continue 


end 


c 






n-1 


Subroutine Multi2 (ctype, mu Is in, gnome, ngrid, jdim, kdim. 


c 

do 50 n-l.ngrid 


I xmax . lymax, strch, xcg, ycg , r) 












c 

1 (r ( j , 2 ) , j-1. jdim(n) *kdim (n) * ldim(n) ) . 

c 



c 

( (r ( j. 3) , j-1, jdim(n) *kdim (n) * ldimln ) ) 

c 

Author : 



if (n .eq.l) then 

c 

Leslie A. Yates 



xmin - rotll*r (jsubl (1, 1) *ksubHl, 1) *liubl(l, 1) ) 

c 

Eloret Institute 



+ rot 12*r ( jdtm(n) *kdim( n) * ldim (n) 

c 

NASA Ames Research Center 



+ jaubl (1, 1) *ksub 1(1, l)*lsubl(l,l) ) 

c 

Moffett Field, CA 94035 



+ rotl3*r ( jdim(n) *kdim(n) *ldim(n) *2 

c 

(415) 604-3436 



+ jsubl (1, 1) *kaubl (1, 1)* laubl (1.1) ) 

c 




xmax ■ xmin 

c 

Date: 





fis 

stf 

x ivX-::-/ :,-:x--vx,x v.- , ... ^ 

X ft : ft life* 

c 

December, 1991 


C 50 cont inue 

c 



c 

close (15) 





if ( (xmin. eq. xmax) .or . (ymin . eq . ymox) ) then 


character *12 gnome 



wr ite (*.*)' Data in this view oil liea olong a single line.' 


character *1 rauloin. ctype 



write (*.*)' No further computotiom will be performed.’ 


dimenaion jdim(lO), kdira(lO), ldim(lO) 



atop 


dlmemlon r (10, 2) 



end 1 f 


cocmon/dato/ naub(10). jaubl (10, 10) , jsub2U0,10), kiubl (10. 10) , 


c To 

minimize the size of the image, I xmax and lymox ere adjusted so that the image 


. k«ub2(10,10) . laubl ( 10, 10) , l.ub2(10, 10) 


c does not extend beyond the computational domain. t 

c 

open (unit-15, file-gnome, status-' old' , form*' unformatted' ) 


c 

ratio - (xmax-xmin) /(ymox-ymin) 


ngrid«l 



X yrnax = int (aqrt (float (Ixmox) /ratio) ) 

c 

if (rsuli in . eq. ’ m" ) read (15) ngrid 



I xmax - int (aqrt (rot io*f loot (Ixmox) ) ) 

c 

read (IS) (jdim(n) ,kdim(n) . n-1, ngrid) 



I xmax - int ( (Ixmo*+l) /2) *2-1 

c 




xatrch-I xmax/ (xmox-xmin) 

c 

do 2 0 n-1. ngrid 



yatrch=Iymox/ (ymox-ymin) 

c 

ldim(n) -1 



atrch — aminl (xatrch , yatrch) 

c 

writ* ( *. * ) 



xcg - (Ixmox - atrch* (xmox+xrain) ) /2 . 

c 

wxite(*,*)' For grid n,', nj and nk ', 



ycq - (lymax - atrch * (ymox+yrain) ) /2 . 

c 

jdim(n). kdim(n) 



if (ctype.eq. 'A' ) ycg-- atrch *ymin 

c 

write!*,*)’ How many auba.ti of this grid would you like7' 



return 

c 

read ( * , *) naub (n) 



end 

c 

do 30 m*l,naub(n) 









c 

c 

reod(*,*)jaubl(n.m),jBub2(n,m),ksubl(n,m), kaub2 (n ,m) 



Subrout ine Cetrq3 (gnome . qname , mule in, ng, ngrid, r , q, n j , nk. nl) 

c 

jaubl(n.m) = min0(jdim(n) , jaubl (n.m) ) 


C 


c 

j*ub2(n,m) - maxO(l, jaub2 (n.m) ) 


c 

Author : 

c 

jaub2(n,m) = minO ( jdira (n) , }iub2 (n . m) ) 


c 

Lealie A. Yotea 

c 



C 

Eloret Inatitute 

c 

k»ubl(n,m) - max0(l. kaubl (n.m) ) 


c 

NASA Amea Research Center 

c 

kaubl(n.m) = minO (kdira(n) , ksubl (n.m) ) 


C 

Moffett Field. CA 94035 

c 

kaub2(n,m) -max0(l, kaub2(n,m)) 


c 

(415) 604-34 36 

c 

kaub2(n,n0 = minO (kdicn (n) , kiub2 ( n,m) ) 


c 


c 



c 

Dote: 

c 

1 aubl (n . m) =1 


c 

December, 1991 

c 

laub2 (n, m) =1 


c 


C 30 

cont inue 




C 20 

cont inue 



character* 12 gnome, qname 
dimenaion r (n j*nk *nl *3) , q(nj*nk*nl) 

c 

do 50 n-1, ngrid 




c 



c 

if (ng .eq . 1) t hen 

c 

READ ( 15) (r(j.l) . l-l . jdim(n) «kdim(n>) . 


c 

OPEN(UNIT-15, FILE-gname, FORM-' UNFORMATTED ' , STATUS-' OLD' ) 

c 

i (r ( j , 2) . j-1 . jdinv(n) *kdim(n) ) 


c 

OPEN (UNIT-16. FILE-qnome. FORM-' UNFORMATTED ' , STATUS-’ OLD ' ) 

c 



c 

if(mulain.eq.'m’)Reod(15) k 


if (n .eq . 1) then 


c 

Read (15) ( j, j . j , k-1 , ngrid) 


xmin - rtjsubl(n,l)+(kaubl<n,l)-l>*jdim(n),l) 


c 

if(rrulain.eq.'m’) Reed (16) k 


xmax - xmin 


c 

Read (16) ( j, j , j , k-1 , ngr id) 


ymin - r ( jaubl (n, 1) +(ksubl (n, 1) -1) * jdim(n) ,2) 


c 

end i f 


ymox-ymin 


c 



end if 


c 

READ ( 15) (r(j). j-l.nj*nk*nl*3) 


do 100 m-l.naub(n) 


c 

READ ( 16) al, a2. o3. o4 


do 100 k-ksubl(n.m) ,ksub2 (n.m) 


c 

READ ( 16) (q(j). j-1 . n j *nk«n 1) , 


do 100 j-jsubl (n.ra) , jaub2 <n,m) 


c 

(al, j— l,nj*nk*nl*4) 


xmin-ominl (xmin, r ( j + jdim(n) * (k-1) ,1)) 


c 



xmox-amoxl (xmax, r (j+jdim(n) *(k-l) ,1)) 


c 

if (ng .eq. ngrid) then 


ymin-aminl (yrain.r ( j+ jdim(n) *(k-l) ,2) ) 


c 

CLOSE (UNIT-15) 


ymox-omoxl (yrnax, r (j + jdim(n) *(k-l) ,2)) 


c 

CLOSE (UNIT-16) 

100 



c 

end if 

i!i$l$ I ■:/ ft. ; 

fisst.f 

. |PJ | 




c 1 


•"d 



coapai-coa (pal) 






ft** 




coathe-coa (theta) 


Subrout ine Cetr q2 (gnome, qname,™ la in, ng , ng rid, r,q. nj . nk) 



ainthe-ain (theta) 





coaphi-coa (phi) 

c 




• inphl ain (phi) 

c 

Author: 



rot 11- coithe *coapa i 

c 

Lea 1 ie A. Yotea 



rot 12- coathe *a inpai 

c 

Eloret Inatitute 



rot 13--ainthe 

c 

NASA Amea Reaearch Center 




c 

Moffett Field. CA 94035 



rot21- a inph i *• int he *co«pi i - coaphi*ainpal 

c 

(415) 604-3436 



rot 22 - a inphi *a inthe *a inpa i + coaphi*coapai 

c 




rot23- ainphi *costhe 

c 

lot e : 




c 

December, 1991 



rot31- coaphi *a inthe ‘coapai + ■ inphi * a inpa 1 

c 




rot 32- coaphl*alnthe*iinpai - ainphi*coapai 


character*12 gnome, qname 



do 100 j-1. nj*nk*nl 


dimenaion r(nj*nk*2), q(nj*nk) 



anewx-rot ll*r ( j, 1) rotl2*r(j,2) + rotl3*r(j,3) 

onewy-rot 2 l*r (j, 1) + rot22 *r ( j ,2) + rot2 3*r ( j, 3) 

c 

i f (ng . eq . 1 ) then 



enewz-rot 31*r (j, 1) + rot 32 *r ( j ,2) + rot3 3*r ( j . 3) 

c 

OP EN (UNIT-15, FI LE-q name. FORM-' UNFORMATTED' . STATUS-’ OLD’ ) 



r ( j, 1) -at rch*onewx+xcg 

c 

OPEN (UNIT-16. FILE-qnome. FORM-' UNFORMATTED' . STATUS-' OLD' ) 



r ( j, 2) -at rch*onewy+ycg 

c 

if (mu lain . eq . ’ m’ ) Read ( 15) k 



r(j,3)-atrch*onewz 

c 

Read ( 15) ( j, j, k-1 , n g r id) 


100 

continue 

c 

if (mu lain .eq . ' m’ ) Read ( 16) k 




c 

Read ( 16) ( j. j. k -1 . ng r id) 



r«tum 

c 

c 

and if 



end 

c 





c 

READ (16) ol. e2 , a3, a4 



Subroutine view2 ( r, nj, nk, atrch, xcg, ycg) 

c 

READ (16) <q(j>. j“l,nj*nk). 




c 



c 


c 

if (ng.eq. ngrid) then 


c 

Author : 

c 

CLOSE (UNIT-15) 


c 

Lealie A. Yotea 

c 

CLOSE (UNIT-16) 


c 

Eloret Inatitute 

c 

end if 


c 

NASA Amea Research Center 


rtturn 


c 

Moffett Field, CA 94035 


end 


c 

c 

(415) 604-3436 






... 



c 

December, 1991 


, , , L j 





dimenaion r (nj*nk*nl, 3) 



dimenaion r(nj*nk,2) 

c~ 

i— MgpnnwMMmanMawmmiWtOTMIIMimMWU—maHirmtinpiB 




c 




do 100 j-1, nj*nk 

c 

Aut hor : 



r ( j, 1) -atrch*r ( j, 1) +xcg 

c 

Lealie A. Yotea 



r t j . 2) -at rch*r ( j . 2) +ycg 

c 

Eloret Inatitute 


100 

continue 

c 

NASA Amea Reaearch Center 



return 

c 

Moffett Field, CA 94035 



end 

c 

(415) 604-3436 




c 

Dote: 



subroutine integ 3 (ng. r ,q. n j. nk, nl . delnO) 

c 

December, 1991 






Ip^ll . . . ^ 

c 

C Ant hor : 

C Leslie A. Yates 

C Eloret Institute 

C NASA Ames Research Center 

C Moffett Field. CA 94035 

C (415) 604-3436 

C 

C Date: 

C December, 1991 

C 

dimension t(2) , £(2,3) . r (nj.nk.nl, 3) . q(nj, ok, nl , 3) 
logical mode (600001) 

connon/dat a/ nsub(10), jsubl (10. 10) , jsub2 (10, 10) , ksubl (10. 10) . 

kaub2 (10,10) , lsubl ( 10. 10) , lsub2 (10. 10) 
coftxnon/imoge/Xxxnax, Iymex, mode, p (600001.4) 

coll ngrad3 (ng ,q, r, n j , nk, nl) 

do 100 ns * 1, naub(ng) 

do 101 lelsubl (ng, ns) , lsub2 (ng, ns) -1 
do 101 keksubl (ng, ns) , ksub2 (ng. ns)-l 
do 101 j«Jaubl (ng , ns) , jsub2 (ng.ns) -1 

*1 - r(j , k , 1, 1) 

x2 - r « j+1, k . 1. 1) 

x3 - r(j . k + 1, 1. 1) 

x4 - r (j+1 , k + 1, 1. 1) 

x5 - r (j , k , 1+1. 1) 

x6 - r (j+1, k , 1+1. 1) 

x7 - r (j . k+1, 1+1. 1) 

x8 - r ( j +1 . k+1, 1+1. 1) 

yl - r(j . k . 1. 2) 

y2 - r (j+1. k . 1, 2) 

y3 - r ( j . k+1. 1, 2) 
y4 - r (j+1. k+1. 1, 2) 
yS - r(j . k , 1+1, 2) 
y6 - r (j+1 . k , 1+1. 2) 
y7 - r(j . k+1, 1+1. 2) 
y8 - r (j+1, k+1, 1+1. 2) 

minx “ int (orainl (xl, x2, x3, x4, x5, x6, x7, x8) + 0.99) 
maxx “ int (amaxl (xl. x2, x3, x4, x5, x6, x7 , x8) ) 
rainy “ int (ominl (yl, y2, y3, y4, y5, y6, y7 , y8) + 0.99) 
moxy • int (amaxl (yl, y2, y3, y4, y5, y6, y7 , y8) ) 

do 220 mpniinx.maxx 
am- float (m) 
do 220 n=miny, rro xy 
i f (. NOT. mode (m+ (n-1) *Ismos) ) then 
an*float (n) 
ipoint = 0 

c Does xm. xn lie in surface 1? 
jit • 0 

A1 “ (x2-om) * (y 3-an) - (x3-em) * (y2-on) 

A2 _ (x3-am) * (yl-on) - (xl-oni) * (y3-en) 

A3 * (xl-ora) * (y2-on) - (x2-om) * (yl-on) 

n.f I T'' « .III 'lB 

if (abs (A1+A2+A3) .ne .abs (Al) +abs (A2) +abs (A3) ) then 
jk - 1 

A2 » (x3~am) * (y4-an) - (x4-am) * (y3-on) 

A3 - (x4-ora) « (y2-an) - (x2-am) *(y4-an) 
end if 

if (abs (A1+A2+A3) .eq.abs (Al) +abs(A2)+obs (A3) ) then 
ipoint “ ipoint + 1 
denom - Al + A2 + A3 
if (denom.eq. 0.0) denom “ 1.0E+24 
denom ” 1. /denom 

Z (ipoint) = (Al*r ( j+ jk,k+jk, 1, 3) + A2 «r ( j+1, k. 1, 3) 

. + A3*r ( j, k+1, 1, 3) ) *denotn 

fl - (Al*q(J+jk.k+jk, 1,1) + A2 *q( j+1, k, 1, 1) 

+ A3*q(j,k+1, 1,1)) 'denom 
f (ipoint, 1) - fl - delnO 
f (ipoint, 2) - (Al»q(j+jk, k+jk, 1,2) 

+ A2*q(j+l,k,l,2) 

+ A3*q ( j , k+1, 1,2)) ‘denom/ ( 1 . + fl) 
f (ipoint, 3) - (Al*q(j+jk, k+jk, 1,3) 

+ A2*q(j+l,k,l,3) 

+ A3 *q( J , k+1, 1,3)) ‘denom/ (1 . + fl) 

end 1 f 

c Does xm, xn lie in surface 27 
jk - 0 

Al «= (x6-am) * (y7-an) - (x7-ara) * (y6-an> 

A2 - ( x7-am) * (yS-an) - (x5-am) • (y7-on) 

A3 - <x5-am) * (y6-an) - (x6-am) * (y5-an) 

if (abs (A1+A2+A3) .ne.abs (Al) +abs (A2) +abs (A3) ) then 

jk - 1 

A2 - (xl-om) * (y8-an) - (x8-am) * (y7-on) 

A3 _ (xS-om) * (y6-an) - (x6-am) * (y8-an) 
and if 

if (abs (A1+A2+A3) .eq. abs (Al) +abs (A2) +abs (A3) ) then 
Ipoint ” ipoint + 1 
denom “ Al + A2 + A3 
If (denom.eq .0 .0) denom » 1.0E+24 
denom » 1. /denom 

z (ipoint) - (Al*r ( j+ jk. k+jk. 1+1,3) + A2 *r ( j+1. k , 1+1 , 3) 

+ A3*r (j.k+1. 1+1,3) )*denora 
fl - (Al*q(j+jk, k+jk. 1+1,1) + A2»q( j+l.k, 1+1.1) 

+ A3*q(j, k+1, 1+1,1) ) ‘denom 
f (ipoint, 1) - fl - delnO 
f (ipoint, 2) - (Al*q(j+jk, k + jk. 1+1,2) 

+ A2*q(j+l.k. 1+1.2) 

+ A3*q( j , k+1, 1+1,2) ) “denom/ (1. + fl) 
f (ipoint, 3) - IAl*q( j+jk.k+jk. 1+1. 3) 

+ A2*q(j+l,k,l+l,3> 

+ A3 *q( j.k+1, 1+1, 3)) ‘denom/ (1. + fl) 

end if 

c Does xm, xn lie in surface 3? 

if { ipoint . gt . 1) goto 225 
kl * 0 

Al ■ (x3-am) * (yS-on) - (x5-ara) * (y3-an) 

A2 - (x5-am) * (yl-on) - (xl-om) * (y5-on) 

flsstf | 

A3 “ (xl-om) * (y3-an) - (x3-om) * (yl-on) 

Al “ (x2-am) * (y5-on) - (x5-am) * (y2-on) 


A2 » (xS-am) * ( yl-on) - (xl-om) * (y5-an) 

if (obs(Al+A2+A3) .ne.obs (Al) +nbs (A2) +abs (A3) ) t hen 

A3 « (xl-ara) * ( y2-on) - (x2-ara) * <yl-an) 

kl = 1 



i f (abs (A1+A2+A3) .ne.abs (Al)+obs (A2) +obs (A3)) then 

A2 = Ix5-en0 * (y 7-on) - (x7-am) * (y5-on) 

jl - 1 

A3 - <x7-oiti) * (y3-on) - (x3-om) * (y7-on) 


end if 

A2 - (x5-om) * (y6-on) - (x6-am) * (y5-an) 


A3 - (x6-om) * (y2-on) - (x2-am) * (y6-o n) 

if (aba (A1+A2+A3) .eq.abs (Al)+eba (A2) +obs (A3) (then 

end if 

denon ■ A1 + A2 + A3 


if (denom.eq. 0.0) denom “ l.Oe+24 

if (abs (A1+A2+A3) .eq.abs (Al)+obs (A2) +abs (A3) )then 

denom - 1 . /denom 

denom « Al + A2 + A3 

Ipoint ” ipoint + 1 

if (denom. eq. 0 . 0) denom“l . OE+24 

r(ipoint) - (Al*r ( j. k+kl. 1+kl , 3) + A2*r (J. k+1. 1, 3) 

denom * 1. /denom 

+ A3*r ( J, k. 1+1. 3) ) * denom 

ipoint » ipoint + 1 

fl - (Al*q(j. k+kl. 1+kl. 1) + A2*q ( j, k+1, 1, 1) 

z ( ipoint ) - (Al‘r(j+jl. k. l+jl.3) ♦ A2‘r ( j+l.k. 1, 3) 

+ A3 *q< j , k , 1+1, 1) ) * denom 

+ A3‘r(j,k, 1+1,3) ) ‘denom 

f (ipoint . 1) - fl - delnO 

fl - (Al*q(j+jl,k,l+jl, 1) + A2*q( j+l.k, 1,1) 

f (ipoint . 2) - (Al*q{j. k+kl, 1+kl, 2) 

+ A3*q (j.k, 1+1,1)) ‘denom 

+ A2*q( j, k+1, 1 , 2) 

f (ipoint, 1) ■ fl - delnO 

+ A3*q( j.k . 1+1 . 2) ) ‘denom/ (1 .+fl) 

f ( ipoint , 2) - (Al *q ( J+Jl, k , 1+ jl, 2 ) 

f (ipoint . 3) « (Al*q l j. k+kl, 1+kl. 3) 

+ A2 ‘q ( j+1, k , 1, 2) 

+ A2 *q( J.k+1, 1 . 3) 

+ A3*q(j,k, 1+1,2)) ‘denom/d. + fl) 

+ A3*q( j.k , 1+1,3) ) ‘denom/ (1 -+fl) 

f (ipoint, 3) » (Al*q ( J+jl.k , 1+jl, 3 ) 

end if 

+ A2 *q ( j+1, k, 1, 3) 


+ A3*q(j,k, 1+1,3)) *denom/(l. + fl) 

c Does xm, xn lie in surface 4? 

end if 

if (ipoint .gt ■ 1) goto 225 


kl - 0 

c Does xm, xn lie in surface 67 


if ( ipoint .gt . 1) goto 225 

1 A1 “ (x4-am) * (y6-an) - (x6-am) * (y4-an) 

jl - 0 

A2 “ (x6-am) * < y2-an) - (x2-am) * (y6-an) 


A3 « (x2-am) * (y4-an) - (x4-am) * (y2-on) 

Al “ (x4 -am) * ( y7-en) - (x7-om) * (y4-er.) 


A2 “ (x7 -am) * ( y3-an) - (x3-om) * (y7-on) 

if (aba(Al+A2+A3) .ne.aba (Al) +aba (A2) +abs (A3) (then 

A3 « (x3-om) * (y4-on) - (x4-am) * (y3-on) 

kl - 1 



if (abs (A1+A2+A3) .ne .abs (Al) +abs (A2) +abs (A3) ) then 

A2 » <x6-om) * (y8-on) - (x8-om) * (y6-an) 

jl - 1 

A3 “ (x8-am) * (y4-an) - (x4-am) * (y8-an) 


end if 

A2 - (x7-om> * (y8-an) - (x8-am) » (y7-an) 


A3 ■ (x8-am) * (y4-an> - <x4 -am) * (y8-an) 

i f (abs (A1+A2+A3) .eq.abs (Al) +abs (A2) +abs (A3) ) t hen 

end if 

denom - Al + A2 + A3 


if (denom.eq. 0.0) denom = l.Oe+24 

if (obs(Al+A2+A3> .eq.abs (Al) +abs (A2) +ab s (A3) ) t hen 

denom ■ 1. /denom 

denom - Al + A2 + A3 

ipoint ■ ipoint + 1 

if (denom.eq. 0.0) denom - 1. OE+24 

z (ipoint) - (Al*r (J + 1. k+kl. 1+kl , 3) + A2*r ( j+1. k+1. 1 . 3) 

denom “ 1. /denom 

+ A3*r ( j + l.k. 1+1 , 3) ) ‘denom 

ipoint «■ ipoint + 1 

fl - (Al*q< j+1. k+kl. 1+kl. 1) + A2*q (j+1, k + 1, 1.1) 

t ( ipoint ) - (Al*r ( j+jl, k+1, 1+jl, 3) + A2*r (j+1, k+1, 1, 3) 

+ A3*q( j+1 , k, 1+1. 1) ) "denom 

+ A3*r(j.k+1. 1+1.3)) ‘denom 

f (ipoint. 1) = fl - delnO 

fl - (Al*q(j+jl, k+1. 1+jl, 1) + A2»q(j+l,k+l. 1,1) 

f (ipoint , 2) - (Al*q( J+1, k+kl , 1+kl, 2) 

+ A3*q(j,k+1. 1+1.1) ) ‘denom 

+ A2*q( j+1. k+1. 1, 2) 

f< ipoint, 1) - fl - delnO 

. + A3*q( j+1. k, 1+1, 2) ) * denom/ (1 . + fl) 

f ( ipoint , 2) - (Al*q (j+jl, k+1, 1+jl , 2) 

f (ipoint , 3) - (Al *q ( J+1. k+kl , 1+kl , 3) 

+ A2*q(J+l,k+l,l,2) 

+ A2 *q ( j+1 , k+1 .1.3) 

. + A3‘q (J, k+1, 1+1,2) ) ‘denom/ (1 . +f 1 ) 

+ A3*q< J+1 , k, 1+1. 3) ) * denom/ ( 1 . + f 1 ) 

f (ipoint. 3) - (Al*q( j+jl. k+1. 1+jl, 3) 

end if 

+ A2*q(J+l,k+1.1.3> 


+ A3*q(J,k+l, 1+1 , 3) ) ‘denom/ ( 1 . +fl ) 

c Does xm, xn lie in surface 57 

end if 

if (ipoint. gt.l) goto 225 

225 continue 

jl > 0 

if (ipoint . eq . 2) t hen 


itre>«m+(n-l) ‘Ixmax 



wmmm 


. fisst.f . : . ^ lifcll! 

P ( inm. 1) -pdran, 1) + abs <x(2)-x (1) ) * (f (2. 1) + f (1, 1) ) /2 . 0 

o32 = r ( j, k+l r 1. 3) - 

p (inn, 2) -p(imn, 2) + abs <x<2) -i (1) ) * (f (2. 2) + f(l, 2) ) /2 . 0 

d P 2 - q( j, k+1 ,1,1) - q ( j . k-1, 1,1) 

p (inn. 3) -pdran. 3) + abs <z (2) -z (1) ) • (f (2. 3) + £ (1, 3) ) /2 . 0 

else 

end if 

ol2 = -3.0»r (j.k.1.1) + 4.0*r ( j.k+kl. 1.1) - r ( j ,k+2*kl.l. 1) 

and if 

a22 - -3.0*r ( j , k , 1,2) + 4.0*r( j.k+kl. 1.2) - r ( j ,k+2*kl. 1. 2) 

220 contlnua 

a 32 «= -3.0*r ( j.k . 1. 3) + 4.0*x( j.k+kl. 1. 3) - r ( j ,k+2*kl , 1. 3) 


dp2 = -3. 0*q (j.k.1.1) + 4. 0*q( j.k+kl. 1. 1) - q( j ,k+2*kl , 1. 1) 

101 continue 

end if 

100 continue 

if (11 .eq .0) then 


ol3 - r(j,k. 1+1.1) - r ( j.k, 1-1,1) 

return 

o23 = r(j.k. 1+1.2) - r(j.k, 1-1.2) 

end 

a33 - r (j.k, 1+1. 3) - r ( j.k, 1-1 . 3) 


- q(j.k. 1+1.1) - q(j,k, 1-1,1) 


else 

subroutine ngrad3 (ng, q.r, nj.nk.nl) 

al3 - -3.0*r( j.k. 1,1) + 4 ,0*r ( j.k. 1+11. 1) - r (j . k, 1+2*11, 1) 


a23 - -3.0*r ( j, k . 1, 2) + 4 ,0*r (j. k. 1+11,2) - r (j ,k. 1+2*11. 2) 


a33 - -3.0*r( j.k. 1, 3) + 4 . 0*r ( j. k. 1+11, 3) - r (j. k. 1+2*11. 3) 

C 

dp3 - -3 . 0*q ( j, k , 1 , 1 J + 4. 0*q(j.k. 1+11,1) - q (j.k. 1+2*11, 1) 

C Author: 

end if 

C Leslie A. Yates 

rJ - all* (a22*a33 - o23*a32) + ol2« (a23*a31 - a21«o33) 

C Eloret Institute 

+ al3*(a21*o32 - a22*o31) 

C NASA Ames Research Center 

i f (rJ - ne . 0 . 0) rJ - l./rJ 

C Moffett Field, CA 9*035 

q (J.k. 1, 2) - rJ*((a33*a22 - o32*o23)*dpl 

C (415) 604-3436 

+ (a 2 3*a 31 - a21»a33)*dp2 + (a21*a32 - o31*a22) *dp3) 

C 

q ( j.k, 1. 3) - rJ*((al3*e32 - a 12*a33) *dpl 

C Date: 

+ (a33*all - a 31*a 13) *dp2 + (a31*al2 - oll*o32) *dp3) 

C December, 1991 

30 continue 

C 

20 continue 


1 0 cent inue 

dimension q(n j, nk.nl, 3) , r (nj.nk.nl, 3) 

return 



conmon/dota/ nsub (10) , jsubl (10, 10) , jsub2 (10, 10) , ksubl (10, 10) , 


ksub2 (10. 10) , lsubl (10. 10) , lsub2 (10, 10) 


do 10 m— 1. nsub (ng) 

. 

do 10 1-1 sub 1 (ng.m) . Isub2 (ng.m) 

subroutine IntegAtng, r.q.nj.nk.delnO.nphi) 

11 = 0 


if (1 . eq. lsubl (ng.m) ) 11 - 1 

.. , 

if (l.sq. Itub2 (ng.m) ) 11 - -1 

c 


C Author: 

do 20 k ■ ksubl (ng, m) , ksub2(ng,m) 

C Leslie A. Yates 

kl - 0 

C Eloret Institute 

if (k .eq .ksubl (ng,m) ) kl » 1 

C NASA Ames Research Center 

if (k -eq .ksub2 (ng.m) ) kl - -1 

C Moffett Field, CA 94035 


C (415) 604-3436 

do 30 J ■ jiubl(ng.m), jsub2(ng,m) 

C 

jl - 0 

C Date: 

if f j.eq. jsubl (ng.m) ) jl - 1 

C December, 1991 

if ( j .eq. jsub2 (ng, tn) ) jl - -1 

C 

if ( jl . eq.0) then 

C-- — — — — — -= « •— — — .... ........ 

all - r< j+1, k, 1,1) - r(j-l.k.l.l) 


a21 - r(j+l,k,l,2) - r ( j-1 , k, 1,2) 

dimension x (3) , f (3, 3) . r (n j. nk,2) ,q (n j, nk . 3) .vcos (181) , vain (181) 

o31 - r(j+l,k.l.3) - r ( j-1, k, 1, 3) 

logical rood (600001 ) 

dpi - q(j+l.k.l.l) - q ( j- 1 , k , 1, 1 ) 


else 

coinnon/datq/ neub(10) , jsubl ( 10. 10) , jsub2 (10, 10) . ksubl (10, 10) , 

all - -3.0*r(j.k. 1,1) + 4.0*r(j+jl,k,l,l) - r ( j+2 * jl.k, 1. 1) 

ksub2 (10, 10) , l.ubKIO, 10) , lsub2 (10. 1 0) 

a21 ■ -3 -0*r ( j, k, 1 , 2) + 4 . 0*r ( j+ jl, k. 1, 2) - r (j+2*jl.k, 1.2) 

comrxsn/ imaga/Ixmax. Iymax. mod, p (600001, 4) 

a31 - -3.0*r(j,k,l,3) + 4 . 0*r ( J+ jl. k. 1 . 3) - r ( j+2 * jl.k, 1, 3) 


dpi - -3.0*q(j.k,l,l) + 4.0*q(j+jl.k.l.l> - q( j+2* jl.k, 1. 1) 

Call ngrad2 (ng, q, r ,nj. nk) 

and if 


if (kl . eq.0) then 

dphi - 2 .0*atan (1.0) /float (nphi) 

ol2 - r( j.k+1.1.1) - r ( j, k-1, 1, 1) 

do 50 n-l.nphi+1 

a22 - r( j.k+1.1,2) - r(j.k-l.l,2) 

vcos (n) -cos (float (n-1) *dphi) 



in*ii ;r--/ fis 

| agg 

wain (n) -sin (float (n-1) *dphi) 

+ A3*q ( j , k+1 , 3) ) *vcos ( iphi) /denom/ ( 1 . + fl) 

50 continue 

end if 

do 100 no-1, nsub (ng) 

c Does xm. xn lie in surface 2? 

do 100 j-jsubl (ng. no) . jsub2 (ng, no) -1 


do 100 k-ksubl (ng. no) . kiub2 (ng. no) -1 

if (vcos (iphi+1) .ne.0)then 


jk - 0 

si - r(j . k .1) 


x2 = r ( j+1 , k . 1) 

A1 - VCOS (iphi+1) *B1 - an* <x2 - x3) 

*3 = r ( j , k+1, 1) 

A2 - vcos (iphi+1) *B12 - an* (x3 - xl) 

s4 - r < j+1 , k+1, 1) 

A3 - vcos (iphi+1) *B13 - an* ( xl - x2) 

yl - r < j. k. 2) 

if (obs (A1+A2+A3) .ne.abs (Al) +aba (A2) +obt (A3) ) then 

y2 - r (j+1, k. 2) 

jk - 1 

y3 - r ( j. k+1. 2) 


y4 - r (j+1. k+1. 2) 

A2 - vcos (iphi+1) *822 - an*(x3 - x4) 


A3 - vcos (iphi+1) *823 - an*(x4 - x2) 

mins - int (ominl (si. s2. x3, x4) + 1.0) 

and if 

mass - int (amaxl (x1.x2.x3.k4)) 


eminy - aminl (yl. y2. y3. y4> 


amaxy - amaxl (yl. y2, y3, y4) 

if (aba (A1+A2+A3) .eq.aba (All +abs (A2) +abs (A3)) then 


Ipoint - ipoint + 1 

do 120 irnninx.iroxx 

denom - Al + A2 + A3 

am-float (m) 

If (denom. eq.0. 0) denom - 1.0E+24 

B1 - (x2-am)*y3 - (x3-am) *y2 

r (ipoint) - en*vain ( iphi+1) /vcos ( iphi+1) 

B12 " (x3-am)*yl - (xl-am) *y3 

fl - (Al*q(J+jk, k+jk, 1) + A2*q ( j + l.k, 1) 

B13 - (xl-am) *y2 - (x2-am) *yl 

+ A3*q(j. k+1, 1) ) /denom 

B22 - (x3-om)*y4 - (x4-am) *y3 

f (ipoint, 1) - fl - delnO 

B23 - (x4-am)*y2 - (x2-am) *y4 

f (ipoint. 2) - (Al*q ( j+jk, k + Jk, 2) + A2*q( j+1, k. 2) 


+ A3*q( j , k+1, 2) ) /denom/ (1 . + fl) 

do 130 iphi - 1. nphi 

f (ipoint, 3) - (Al+q (j+jk. k+jk, 3) + A2‘q( j+l,k. 3) 

miny - int (aminy*vcoa (iphi + 1) ♦ 1.49) 

. + A3*q(j. k+1, 3) ) *vcos (iphl+1) /danom/d . + fl) 

maxy - int (amnxy*Tcoa ( iphi) + 0.5) 

end if 


end if 

do 140 n^niny.maxy 


if < .not .mod(m + (n-1) *Ixmax) ) then 

c Does xm, xn lie in surface 3? (Axial symmetry is used) 

an-float (n) - 0.5 

if < (ipoint .It .2) .end . ( <x2-om) * (am-xl) .ge . 0.0) (then 

i point - 0 

donom-x2 - xl 


if (denom. eq.0. 0) denom - 1.0E+24 

c Does xm, xn lie in surface 1? 

ar - (yl*(x2-om) + y2 * (am-xl )) /denom 

jk - 0 

if ( (a r * vcos (iphi) -an) * (an-ar *vcos (iphi+1) ) .gt . 0.0) then 


ipoint -Ipoint +1 

A1 - vcos (iphi) *B1 - a n * ( x2 - x3) 

x (ipoint) » sqrt (aba (ar *or - an*an>) 

A2 - vcos (iphi) *B12 - on* (x3 - xl) 

fl - (q(j.k.l) *(x2-em)+q( j+l.k. 1) * (am-xl)) /denom 

A3 - wcos(iphi) »B13 - an* (xl - x2> 

f (ipoint, 1) - fl - delnO 


f(ipoint,2)-(q(j,k,2) *(x2-om) 

if (obs (A1+A2+A3) .ne.abs (Al)+abs (A2) +aba (A3)) then 

+q( j+1, k.2) * (am-xl) > /denom/ (l.+fl) 

jk - 1 

f (ipoint, 3)-(q( j.k. 3)* (x2-am) 


• +q( j+1, k, 3) * (am-xl) ) *on /at /denom/ (1 . +f 1 ) 

A2 - vcos (iphi) »B22 - an* (x3 - x4) 

end if 

A3 - vcos (iphi) »B23 - an* (x4 - x2) 

end if 

end if 


if (obs (A1+A2+A3) .eq.obi (All +abs (A2) +obs (A3))than 

c Does xm. xn lie in surface 4? 

lpoint “ ipoint + 1 

if ( (lpoint .It .2) . and . ( (x4-am) • (am-x3) .ge. 0. 0) ) t hen 

denom - A1 + A2 + A3 

danom— x4-x3 

if (danom.eq.O .0) danom - 1.0E+24 

1 f (denom. eq . 0 . D) danom - 1.0E+24 

r (ipoint) - an*vsin ( iphi) /vcos (iphi) 

ar - (y3*(x4-am) + y4* (am-x3) ) /denom 

fl - (Al«q(j+jk,k+jk,l) + A2*q ( j+1. k. 1) 

if ( lor'vcos (iphi) -on) * (an-ar *vcos (iphi + 1) ) .gt .0.0)then 

+ A3*q ( j, k+1, 1) ) /denom 

ipo int -ipoint +1 

f(ipoint.l) - fl - delnO 

x ( ipoint) - sqrt (abs (ar»ar - an»an>) 

f (ipoint .2) - (Al*q( j+jk.k + jk.2) + A2 *q( j+1, k, 2) 

fl - (q< j,k+l . 1) * (x4-om) 

+ A3*q ( j, k+1. 2) ) /denom/ (1 . + fl) 

+ q( j+1. k+1. I)*(am-x3)) /denom 

f (ipoint . 3) - (Al*q ( j+ jk , k+ jk , 3) + A2 *q( j+1, k. 3) 

f (ipoint. 1) - fl - delnO 





wmmm mmm 

WWXVgWAVAVAV/ V.V.-.-.W.-.V.V.-.' *V.\\^\\V.VaV.%V.V,V.V.V.W.^^*eW.-a\V.\V,\\V. 


f (ipoint.2)-(q(j.k + l,2)*(x4-cm) 

a ubroutina intag2 (ng, r, q, n j , nk .del nO, dr) 

+q( j+l.k+1. 2) * (6m-x3) ) /danom/ (l.+£l) 


f (ipoint. 3) -(q(j. k+1, 3) *(x4-om) 

■— ■■■ 

+q( j+l.k+1. 3) * (am-x3) ) »en/ar/danom/ { 1 .+f 1) 

c 

and if 

C Author: 

• nd if 

C Laalia A. Yata* 


C Elorat Institute 

c Doa* xm. xn lia in aurfaca 57 

C NASA Arne* Research Cantar 

if ( (ipoint.lt .2) .nnd. ( (xl-am) * (am-x3) .ga.O .0) ) than 

C Moffatt Field. CA 94035 

or - 0.0 

C (415) 604-3436 

if (x3-xl.no. 0.0) ar * (yl*(x3-am) + y3* (am-xl) ) / (x3-xl) 

C 

if ( (ar *vco* (i phi) -an) * (an-ar *vcoi (iphi+1) ) .gt .0.0) than 

C Data: 

danom « y) - yl 

C Dacambar. 1991 

if (danom. aq.0. 0) danom*=l .0E+24 

C 

ipoint * ipoint + 1 


x (Ipoint) - *qrt (ab* (ar *or-an*on) ) 


fl - (q( j, k , 1) * (y3-ar) + q(j , k+1 . 1) * (or-yl) ) /danom 

dimension r(nj.nk.2). q(nj,nk,3) 

f (ipoint, 1) - fl - dalnO 

logical mod (600001) 

f (ipoint , 2) - (q(j,k.2)*(y3-ar> 


+ q ( j, k+1, 2) * (ar-yl) ) /danom/ (1 . + f 1) 

common/dato/ nsub ( 10) , jsubl (10, 10) , j »ub2 (10, 10) . ksubl (10. 10) , 

f (ipoint, 3) - (q(j,k.3)«(y3-ar) 

k*ub2 (10. 10) . l.ubl (10,10) . Isub2 (10, 10) 

+ q( j.k+l, 3) *(ar-yl) ) *an/or/danora/(l. + £l) 

conxnon/image/Ixmax. lymax. mod, p (600001, 4) 

•nd if 


• nd if 

Call ngrod2 (ng, q,r .nj.nk) 

c Doa* xm. xn lia in *ur£aca 67 

do 100 no-l.nsub(ng) 

if ((ipoint .It .2) .and. ( (x2-om) * (am-x4) .go .0.0) ) than 

do 100 j-jsubl (ng.no) , j»ub2 (ng, no) -1 

or -0.0 

do 100 k-ksubl (ng,no) , ksub2 (ng , no) -1 

if (x4-x2.na.O .0) ar « (y2*(x4-om) + y4 * (on*-x2 ) ) / (x4-x2) 


if ( (ar *vco* (iphi) -an) * (an-ar*vco* (iphi+1) ) .gt .0 .0) than 

xl = r(j . k , 1) 

danom - y4-y2 

x2 = r ( j+1, k , 1) 

if (danom. aq .0.0) danom=1.0E+24 

x3 = r ( j . k+1, 1) 

ipoint = ipoint 4 1 

*4 = r (j+1, k+1, 1) 

z (ipoint) - *qrt (ab* (ar *ar-en*an) ) 


fl = (q(j+l,k.l)*(y4-or) 

yl = r(j . k , 2) 

+ q(j+l.k+l.l)*(ar-y2))/danom 

y2 - r ( j +1 , k , 2) 

f (ipoint. 1) - fl - dalnO 

y3 = r ( J . k+1, 2) 

f (ipoint. 2) - (q(j+l.k.2) *(y4-ar) 

y4 - r (J+1. k+1. 2) 

+ q( j+l.k+1, 2) * (ar-y2) ) /danom/ (1 .+fl) 


f (ipoint. 3) - (q(j+l, k, 3) *(y4-ar) 

minx - int (ominl (xl, x2 . x3, x4) + 0.99) 

4 q( j+1, k+1, 3) *(ar-y2) ) *an/or /danom/ (l.+fl) 

maxx a int (atnaxl (xl.x2.x3.x4) ) 

•nd if 

miny - int (ominl (yl.y2 . y3 , y4) + 0.99) 

and if 

maxy - int (amoxl (yl, y2 . y3 , y4> ) 


do 120 m=minx, maxx 

if (ipoint .ge .2) then 

ora = float (m) 

imn - m 4 (n-1) * Ixmax 

do 120 n*miny,maxy 

p (imn, 1) =p (imn. 1) + ab. (* (2) -x (1) ) • (f (2. 1) +f (1. 1) ) /2 .0 

an - float (n) 

p (inn, 2) *=p (imn, 2) + ob» (x (2) -x (1) ) * (£ (2. 2) +f (1. 2) ) /2 .0 


p (imn, 3) =p (imn, 3) + ab* (x (2) -x (1) ) * (f (2. 3) +£ (1, 3) ) /2 . 0 

e Doa* xm. xn lia in tha grid? 

• nd if 


and if 

jk - 0 

140 continue 

Al - (x2-om) * (y3-an> - (x3-om) * (y2-on> 

130 continue 

A2 - (x3-om) * (yl-an) - (xl-om) * (y3-an) 

120 continue 

A3 - (xl-om) * (y2-an) - (x2-om) * (yl-an) 

100 continue 



i£(abs (Al+o2+A3) .na. ab* (Al) +ab* (A2) +ab* (A3) )than 


jk - 1 

return 


•nd 

A2 - (x3-am) * (y4-on) - ( x4-om) * (y3-an) 


A3 - (x4-am) * (y2-an) - (x2-am) * (y4-on> 


•nd if 



iffaba (Al+o2+A3) .aq. a bi (A1 ) +ab» (A2) +ab* (A3) ) t han 
i point - ipoint + 1 
danom - A1 + A2 + A3 
If (danora.aq.0.0) danora - 1.0E+24 
fO - (Al*q( J+jk . k+Jk.l) + A2*q(j+l,k.l) 

+ A3*q ( j, k+1, 1) ) /danom 
fl - fO - dalnO 

£2 • (Al*q(j+jk,k+jk,2) 4 A2*q ( j+1 , k , 2 > 

4 A3*q ( j, k+1. 2) ) /danom/ <1 . +f0) 

£3 - (Al«q(j+jk,k + jk,3) 4 A2*q(j+l,k,3) 

4 A3*q(j,k+1. 3)) /danom/ (l.+fO) 

imn “ m 4 (n-1) *Ixmox 


fisst-f : 


if ( jl.aq.O) than 

ell - E(j+l.k,l) - r(j-l.k.l) 
o2 1 - t(j+l.k,2) - r( j-l,k,2) 
dpi ■ q( j+l. k. 1) - q(j-l,k,l) 
and if 

if (kl.na.O) than 

«12 - -3 . 0*t < j , k , 1) + 4.0*r(j.k+kl.l> - r ( j .k+2*kl, 1) 

a22 - -3. 0*r { j, k, 2) 4 4 . 0*r ( j . k+kl . 2 ) - r < j , k+2*kl,2) 

dp2 - -3 . 0*q { J , k, 1) 4 4 . 0*q ( j. k+kl. 1) - q ( j . k+2*k 1 . 1) 

•nd if 


p (inn , 1) — f l*dz 
p (iim , 2) = F2*dz 

p (inn. 3) - f3*di 
• nd if 


120 


100 


cant lnu« 


if (k 1 ,aq . 0) then 

•12 - r(j,k+l.l) - r(j,k-l, 1) 

a22 - e ( j . k+1, 2) - r ( j , k-1 , 2} 
dp2 - q(j.k+l.l) - q ( j , k-1 , 1) 
•nd If 

rJ > al l*o22 - ol2*o21 
if UJ.na.O) zJ m I./eJ 


■ubroutina ngrad2 (ng . q, r , n j, nk) 


q ( j , k , 2 ) - r J* ( a22*dpl - o21*dp2) 
q(j.k.3) - eJ* (-al2 *dpl 4 a ll*dp2 ) 
20 contlnu* 

10 continue 

5 continu* 



C Author: 


C Lailie A. Yata* 

C Eloiet Institute 

C NASA Am** Reiaarch C«nt*E 

C Kof fatt Fiald. CA 94035 

C (415) 604-3436 


C Data: 

C Dacambar. 1991 



dimension r (n j, nk, 2) ,q<n j. nk. 3) 

common /data/ n*ub (10), j*ubl (10, 10) . jiub2 ( 10, 10) , k*ubl ( 10, 10) , 
k*ub2 (10, 10) , Isubl (10.10), l*ub2 (10,10) 

do 10 n-1, nsnb (ng) 

do 10 k - k*ubl(ng,n), k*ub2(ng,n) 
kl - 0 

if <k ,aq .ksubl (ng.n) )kl - 1 

if(k.aq.k*ub2(ng,n))kl « -1 

do 20 j “ jsubl(ng.n) . jaub2(ng.n) 
jl - 0 

if ( j ,*q. j»ubl (ng , n) ) jl - 1 

if ( j . aq . j »ub2 (ng . n) ) jl - -1 

if (jl.na.O)than 

all - -3.0*r(j.k. 1) + 4.0*x(j+jl,k,l) - E ( j+2* jl . k . 1) 
o21 - -3.0 *e ( J. k, 2) + 4 .0*r ( j+jl, k , 2) - r ( j+2* jl . k. 2) 


raturn 

•nd 


• ubroutina mod® 1 (ng. r , n j. nk , nl) 



C Author: 


C Laalia A. Yata* 

C Elorat Inatituta 

C NASA Amaa Raiaarch Cantar 

C Moffett Fiald, CA 94035 

C (4 15) 604-3436 


C Data: 

C Dacambar. 1991 



charactar*l plana 
logical mod (600001) 
d imam ion r (n j. nk. nl. 3) 

cornnon/imega/Ixmax. lymax. mod, p (600001, 4) 
common /iue fiat /mag, jminaat (10) , jmaxaat (10) , kminset (10) , 
kmaxsat (10) , lminsat (10) . lmoxsat (10) 

print*. “in modal, A*eg-",n*eg 
C writ* (*, *) 

C writ* (*,*)' In grid * , ng , * how many surface segment* Bra there7' 

C raad (*. * ) mag 

i f (n *ag . aq. 0) r *t ur n 


ORIGINAL PAG£ ES 
OF POOR QUALITY 







'SSmSimt 







wmpmm 

• i: fiSSt.f 







A13 - aignd.O, (xl-am) *{y2-an) - (x2-am) * (yl-an) ) 


-x-x*xtt*x* 

do SO no=l,naeg 
print. *, "no ” ", no 



A22 * aign d .0, (x3-em) • (y4-an) - (x4-am) * (y3-an) ) 



print*, "jminaet, jmoxaet “ " , jralnaet (no) . jmaxaet (no) 



A23 - aignd.O, (x4 -era) * (y2-an) - (x2-ora) * (y4-on) ) 



print*, "kminaet, kmaxiet - " , kminaet (no) , kraxaet (no) 
print*. "lminaet, lmiat - ", lminaet (no) . lmaxaet (no) 



teat - amaxl (aba (Al + A12 + A13),eba{Al + A22 + A23) ) 



C writ* (*, *) 

C write(*.*)’ For aurfacea defined by conatant j.k,l plonoa, ' 



if (teat .gt . 2 . 5) mod (m+ (n-l> *Ixmax) e.TROE . 



C writ* (*,*)’ input j.k, or 1* 


12 

cont inue 



C rood!*, ’ (al) ') piano 


11 

continue 





10 

cont inue 



C if (plane. eq. ' j ’) then 






if (jralnaet (no) .eq. jmaxaet (no)) thon 



end if 



J - jralnaet (no) 
train « kminaet (no) 


c 

if (plane. eq. ' k’ ) then 



kraax - kmaxiet (no) 



if (kminaet (no) .eq .kmaxaet (no) ) then 



lmin — lminaot (no) 



k — kminaet (no) 



lmax — lmoxaet(no) 



jmin = jminaet (no) 



C write (*.*)’ Input j for the model aurfoce.' 



jmax = jmax let (no) 



C read ( *, *) j 



lmin = lminaet (no) 
lmax — lrmxaet (no) 



C write!*,*)' Input train, kmox for the model aurfoce.' 


c 

write (* , *) 



C rood! *,*) train, kmox 


c 

write!*,*)’ Input jmin, jmox for the model aurface.' 





c 

read (*,*) jmin, jmox 



C write (*,*)’ Input lmin, Imax for the model aurfoce.' 

C read (*,*) lmin , Imax 


c 






c 

read (*, *) k 



if ((j-l)Mnj-j) . 1*. 0) j«l 


c 

wzite(*,*)' Input lmin. lmax for the model aurface.' 



tmin ■ mox0(l, tmin) 
train ” minO (nk, tmin) 


c 

read (*,*) lmin, lmax 



kmox ■ moxO ( 1. kmox) 



jmin - maxOll, jmin) 



kmox " minO (nk, kmox) 



jmin » minO (nj, jmin) 
jmax *■ max0(l, jmax) 



lmin * moxO ( 1, lmin) 
lmin « minO <nl, lmin) 



jmax — minO (nj, jmax) 



lmox « moxO(l , lmax) 
lmox - min0(nl, lmax) 



if ( (k-1) * (nk-k) .le.0) k-1 






lmin - maxO ( 1 . lmin) 



do 10 1- lmin, lmox-1 



lmin - minO (nl , lmin) 



do 10 k “ tmin, kmox-1 



lmax - maxO (1 , lmax) 
lmox - minO (nl . lmax) 



*1 - c(j. k ,1 .1) 
x2 - r(j. k+1, 1 , 1) 



do 20 j - Jmin. jmnx-1 



x3 - r(j, k , 1+1, 1) 

x4 - t ( j, k+1, 1+1, 1) 



do 20 1 - lmin. lmax-1 






xl - r(j . k. 1 . 1) 



yl - r(j, k ,1 ,2) 



x2 - r (j+1, k. 1 ,1) 



y2 - r(j. k+1, 1 , 2) 



x3 - r { j , k. 1+1, 1) 



y3 - r(j. k , 1+1, 2) 
y4 - r Ij. k+1, 1+1, 2) 



x4 - r (j+1, k. 1+1, 1) 






yl - r(j , k. 1 , 2) 



minx - int (aminl (xl , x2, x3, x4) + 0.99) 



y2 - r (j+1, k. 1 .2) 



maxx « int (amaxl <xl,x2, *3, x4) ) 



y3 «* r ( j , k. 1+1. 2) 



miny = int (aminl (yl , y2. y3. y4) + 0.99) 
maxy = int (omoxl (yl . y2, y3, y4) ) 



y4 - r ( j+1, k, 1+1. 2) 






minx » int (aminl (xl, x2. x3, x4 ) + 0.99) 



do 11 n*miny, maxy 



maxx - int (amaxl (xl, x2, x3 . x4 ) ) 



on-floot (n) 



miny - int (aminl (yl, y2, y3, y4) + 0.99) 



do 12 ireroinx, moxx 



maxy - int (amaxl (yl, y2, y3,y4 ) ) 



ante float (m) 



do 21 n-roiny, moxy 



Al - a ign (1.0, (x2-am)’ (y3-an) - <x3-am) • (y2-on) ) 



on - floot (n) 



A12 - a ign ( 1 . 0 , ( x3-am) * (yl-an) - (xl-om) * (y3-on ) ) 



do 22 m-minx, maxx 










fisst.f 









. , V, 

om — floot (m) 



do 31 n-rainy. maxy 



Al « aign (1.0, (x2-om) * <y3-an) - (x3-om) * (y2-an) ) 



on “ float (n) 



A12 w aign (1.0, (x3-ara) * (yl-an) - (xl-am) * (y3-an) ) 



do 32 mereinx.maxx 



A13 « aign (1. 0, (xl-am) * <y2-on) - (x2-am) * (yl-an) ) 



am ■ float (m) 



A22 “ aign (1. 0. (x3-am) * (y4-an) - (x4-om) * (y3-an) ) 



Al * aign(1.0, (x2-om) * (y3-on) - (x 3-ora) * (y2-on) ) 



A23 - aign (1.0. <x4-am) • (y2-on) - <x2-om) * <y4-on) ) 



A12 - aignd.O, (x3-am) * (yl-an) - (xl-ara) * ( y3-an) ) 



teat - omoxl (oba (Al + A12 + A13).oba(Al + A22 + A23)) 



A13 - aignd.O, (xl-om) *(y2-an> - (x2-om) * (yl-an) ) 



if (teat -gt. 2 .5) mod (tti+ (n-1 ) *Ixmox) -.TRUE. 



A22 - aignd.O, (x3-om) *(y4-an) - tx4-ora) * (y3-an) ) 



22 continue 



A23 - aignd.O, (x4-ora) *(y2-on) - (x2-cun) * <y4-an) ) 



21 continue 



teat - amaxl (aba (Al + A12 + A13),aba(Al + A22 + A23) ) 



20 continue 



if (teat .gt. 2 . 5) mod (m+(n-l) *Ixmax> “.TRUE . 



end if 


32 

continue 





31 

continue 



C i f (plane. eq. ' 1 ' )then 


30 

cont inue 



if (lminaet (no) -eq. lmaxaet (no) ) then 






1 - lminaet (no) 
jmin = jminaet (no) 



end if 



jmax - jmaxaet(no) 


50 

cont inue 



train - kminaet (no) 
kmox - kmaxaet(no) 



return 



C write(*,*) 

C write (*,*)' Input jmin, jmax for the model aurface.* 



end 



C read (*,*) jmin, jmax 









aubroutlne Grdoor (ng, r , n j , nk) 



C write!*,*)' Input kmin, kmox for the model aurface.’ 






C write (*,*)' Input 1 far the model aurface.' 


C 

c 

Author: 



C read(*,*)l 


c 

Lealie A. Yotea 





e 

Eloret Inatitute 





c 

NASA Amea Reaearch Canter 



jmin “ moxO (1, jmin) 


c 

Moffett Field. CA 94035 



jmin “ minO (nj. jmin) 


c 

(415) 604-34 36 



jmax - max0(l, jmax) 


c 




jmax - minO (nj, jmax) 


c 

Date: 





c 

December, 1991 



kmin " max0(l, kmin) 


c 




kmox ■ max0(l, kmox) 
kmox “ mlnO(nk,kmox) 



dlmenalon r (n j. nk. 2) 
logical mod (600001) 



if ( (1-1) * (nl-1) .le. 0)1-1 



connen/data/ naub(10), jaubl <10, 10) , jaub2 (10, 10) , kaubl (10, 10) . 



do 30 j - jmin, jmnx-1 



kaub2 ( 10, 10} , laubl (10, 10) , laub2 (10, 10) 



do 30 k - kmin, kmox- 1 



coctnon/ image/ Ixmax, lymax, mod, p (600001, 4) 



xl - rlj . k , 1, 1) 



do 5 1-1. Ixmax* lymax 



x2 - r < j+1, k , 1. 1) 



mod (i) —.TRUE . 



x3 - r (j , k+1. 1, 1) 
x4 - r (j+1, k+1, 1. 1) 


5 

continue 






do 10 no - 1, naub(ng) 



yl - rtj . k . 1, 2) 



do 10 j- jaubl (ng , no) , jaub2 (ng . no) -1 



y2 - r (j+1. k . 1. 2) 
y3 - r tj , k+1, 1. 2) 



do 10 k - kaubl (ng, no) . kaub2 (ng. no) -1 



y4 - r (j+1, k+1. 1. 2) 



xl - r ( j. k .1) 
x2 - r(j. k+1.1) 



minx - int (aminl (xl , x2. x3, x4) + 0.99} 



x3 - r (J+1 , k .1) 



maxx — int (emexl (xl, x2, x3, x4) ) 
miny - int (aminl (yl , y2, y3, y4) + 0.99) 



x4 - r (j+1, k+1, 1) 



moxy - int (amaxl (yl,y2, y3, y4) ) 



yl - r ( J, k. 2) 





2fl2f3« " 

mmmm • 


•: ’ : : : : : 


y2 - r(j, k+1, 2) 

C 

horix = 0.0 

«' V»V*W»V. , AV.V«V.V. , |V 


y3 - r ( j+1, k ,2) 
y4 - r (j+1, k+1, 2) 

c 

vart “0.0 




c 

writa(*,*)' Input typa of intar farogram' 



minx - int (aminl (xl, x2, x3, x4 ) + 0.99) 

c 

writ a (*,*)' i for inflnita frlnga * 



moxx - int (amaxl (xl. x2. x3 . x4 ) ) 

c 

write (*,*)' v for finite frlnga with vertical fringaa* 



miny - int (emin 1 (yl,y2, y3, y4 ) + 0.99) 

c 

write (*,*)’ h for finite fringe with hoi lrontol fringe*' 



many - int (amaxl (yl, y2. y3. y4 ) ) 

c 

read (*. ' (al) ’ ) typa 




c 

writa(*. •) 



do 11 n»miny. maxy 

c 

if (type. eg.’ v’ ) than 



an«f loot (n) 

c 

write(*,*)’ Input the number of vertical finite fringe*.' 



do 12 b™1h*. maxx 

c 

read ( *, *) vart 



om^f loot (m) 

c 

file-' VFFringe. im' 




c 

and if 



A1 - (x2-am) *(y3-an) - (x3-om) * ( y2-an) 

c 

if (type.eq. ’h’ ) than 



A2 - (*3-em) *(yl— an) - (xl-era) * (y3-an) 

c 

write (*.*)’ Input the number of horizontal finite fringe*.' 



A3 - (xl-em) * (y2-an) - (x2-ara) * (yl-an) 

c 

r and (*,*) horix 




c 

file - * HFf rlnga. im* 



if (ob»(Al+A2+A3) .ne.ab* (Al) -fab* (A2) +ab* (A3)) than 

c 

and If 



A2 - (x3-om) * (y4-an) - (x4-ara) * (y3-on) 
A3 ■ (x4-om) * (y2-an) - (x2-aro) * (y4-on) 


fl - twopi* vart /Ixmax 



and If 


£2 - twopi*horiz/Iymax 
do 10 j-1. lymax 



if (aba (A1+A2 +A3) .eq.abs (Al) +aba (A2) -fobs (A3) ) 


dph 12 - float (j-1) *f2 



mod(ra+ (n-1) * Ixraox) -.FALSE . 


do 10 1-1. Ixmax 





dphil - float (i-l)*fl 


12 

continua 


a - cona *p (i+ (j-1) *Ixmax, 1) + twopi 


11 

cont inua 


p (i+( j-1) * Ixmax, 4) - 128. + 127,*co*(a + dphil + dphi2> 




10 

cont inua 


10 

continua 


do 120 1-1, Ixmax* lymax 



return 


if (mod( 1) ) p (1. 4) =0. 0 



and 

120 

continua 








aubcoutina fringaa (cona) 


and 


C 





C Ant hoc : 

. 



c 

Leslie A. Yatea 


subroutine ihadowg (camara) 


c 

Elorat Institute 

NASA At. a a Research Cantar 

Hoffatt Fiald. CA 94035 




mm 

c 



■pa 

(415) 604-3436 

c 

Author : 


\mm 


c 

Leslie A. Yata* 


C Dot*: 

c 

Elorat Institute 



Dacambaz, 1991 

c 

NASA Amas Research Cantar 




c 

Moffatt Fiald, CA 94035 





(415) 604 3436 



charactar*l typa 

m 

Data: 



charactar *12 fila 

c 

December, 1991 



logical mod (600001) 

c 




common /image/ 1 xmax, Iymax.mod.p (600001.4) 


charactar*12 filenam 



conron/1 ntar f/awl, cjunk. vart . horix, typa 


logical mod (600001) 



print *.”in fringaa* 
print *. “cona - “.cona 


conxnon/ image/Ixmax, lymax, mod. p(600001. 4) 



print *, “horix. vart*, horix, vart 


conrnon/integ/ngrid.npts , rhoO, rhoinf.ol, pass, pi 1 .theta, phi ,dx. nphi. 



file-' IFr Inga . im' 


t gatrch, str ch , ctype , tru 1* in 



tvopi - 8.0*atan (1.0) 


character ‘1 rau la in, ctypa 







^ x2m ■ 




si f 





c 

write(*.*)' Input linear stratch factor for gray-acala.’ 



print*. "in ahadowg* 

print *, *camara, gatrch* , camara, gatrch 

c 

raad (*. *) gatrch 


c 

filenam- 1 Shadow . im' 


do 30 i-1, Ixjnax'Iyirax 



do 10 i-1 , Ixmax* lymax 


val - 85.0 + 84 . 0 *g »t rch * ( p (i, 4) *p (i, 4) - 1.0) 



p ( i , 4) - 0.0 


val - amaxl (1.0, val) 


10 

cont inua 


p(i,4) - aminl (val. 255.0) 




30 

continue 



do 11 i-1 , Ixmax 





p ( i . 4) - 1.0 


do 120 i-1 , Ixmax* lymax 



p(i + ( lymax- 1) * I xmax, 4) • 1.0 


if (mod (i))p(1.4)-0.Q 


11 

continua 

120 continue 



do 12 j-1, lymax 


raturn 



p(l+(J-l) *Ixmax, 4 ) - 1.0 


end 







12 

continua 


■ubroutina tchl laran (knife) 



do 15 j- 2. Iymax-1 

c 




do 15 i - 2, lunar- 1 

c 

Author : 



il - i + (j-1) * Ixmox 

c 

Laalia A. Yetaa 



xl = float (i) - 0.5 + 0 .5*camara* (plil-1,2) + p(il.2)) 

c 

Elorat Inatituta 



x2 - float (i) + 0.5 + 0 .5*camaro* (p lil+1,2) + p(il,2)) 

c 

NASA Amaa Research Cantar 



yl - float (j) - 0.5 + 0 .5*camara* (pdl-Ixmax, 3) + p(il,3)) 

c 

Moffatt Fiald, CA 94035 



y2 - float (j) +0.5 + 0 .5*camara* (p (il+Ixmax, 3) +p(il,3)) 

c 

(415) 604-3436 



if (x2.lt. xl)than 

c 




dx - xl 

c 

Data: 



xl - x2 

c 

December, 1991 



x2 W dx 

c 




if (y2.lt. yl) then 





dy - yl 


chorecter*l knife 



yl - y2 


charactar*12 filenam 



y2 - dy 


logical mod (600001) 



and if 

dx ■ x2 - xl 
dy * y2 - yl 


coirmon/image/Ixmax, lymax, mod, p (600001, 4) 





common /int ag/ngr id, npti , rhoO. rhoinf.ol. pass. pai, theta. phi . dr, nphi. 



daraa = 100. 


6 gatrch, atrch. ctypa, muliin 



if (dx*dy .na. 0) daraa - l./(dx*dy) 


character *1 mulsin, ctypa 



imin " maxOd, int(xl + 0.5)) 


print*, “in achliaran. knife-”. knife 



imin - minOdxmax, imin) 

c 

n - 2 

f ilanottf-' VSchlier . im* 



inax - maxOd, int (x2 + 0.499999991) 


print* , “Ixmax, lymax-". Ixmax, lymax 



imax - min 0(1 xmax , imnx) 


if (knlfe.eq.’h' )than 





n - 3 



jmin « maxO ( 1 , int (yl + 0.5)) 

c 

filenam-' HSchliar . im’ 



jmln “ minOdymax, jmin) 


and if 



jmax - maxOd. int (y2 + 0.49999999)) 


pmax - 0.0 



jrrax — min0(Iymax. jmax) 


pmin - 0.0 



do 112 m — jmin, jmax 


do 10 i-1, Ixmax*Iymax 



wy - aminl ( float (m) +0 .5, y2) - amaxl (float <ra) -0.5, yl) 


pmin - aminl (p ( i, n) . pmin) 



do 114 n “ imin, imax 


pmax - amaxl (p( i,n) , pmax) 



wx - aminl (float (n) +0.5, x2) - amaxl (float (n) -0. 5, xl) 

10 

cont lnu« 



p(n + (m* 1 ) * I xma x , 4 ) - p (n + (m-1) ‘Ixmax, 4) + wx*wy*darea 


print*, “pmin, pmax”, pmin, pmax 


114 



pmax - amaxl (-pmin, pmax) 


112 

continua 

c 

write(*,*)' Input linear stretch factor for gray-acala.' 


15 

continua 

c 

raad (*. *)gatrch 
print*. “gatrch" , gatrch 






fissLf 


do 20 1-1 , Ixroax*Iymax 

a = mul (0.0. 1.0 + anri l*p ( i, n) ) 
a = aminl (a,2 .0) 
p (i. 4) = 1.0 + 63 ,5*a*o 
20 continue 

print*. "leaving schlieran" 

do 120 1—1, Iswi'Iymx 
if <mod(l)>p(i,4)-0.0 
120 conti nue 


wW'XWXWX'Ww • • • 


if (pmax.ne.O) omul “ git rch/pirax 



snbrout ina da In (q. nj.nk.nl, rhoO. r hoin f .CO.dalnO) 


C Author: 

C Lai 1 la A. Yota* 

C Cl or at Institute 

C NASA Ana* Raaaarch Cantor 

C Moffett Field, CA 94035 

C (415) 604-3436 


C Dot a ; 

C December, 1991 



d imam ion q(nj*nk*nl) 

do 10 j-l.nj*nk*nl 

q(j) “ CD *r ho inf *q ( J) /rhoO 
10 continue 

dalnO - CD*rhoinf 



fisstSupport.c • 




•upport tha fiaat fortran routines for fast •/ 

INCLUDES 


llncluda 

f lncluda 

llncluda 

llncluda 

llncluda 

llncluda 

•Include 

/••include 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

llncluda 

(include 


<stdlo.h> /• 

Citring .h> /* 

<ctypa.h> /• 

<math.h> /* 

<fld_pon.h> /» 
<panal_utlla .h> /* 
<gr id_*ur face . h>/* 
<View.h> 

< fo*t_er ror . h> /* 
<fest_memory.h> /• 
<fld_li*t.h> /* 
<fait_cmap.h> /* 
<Kodula.h> /* 

CViewI . h> /* 

<g 1/g 1 . h> /• 

<d*vica.h> /* 

* f iiitSupport .h“/* 
<malloc.h> /* 


for print f () ate. 
for string ituff 
for isdigit () ate. 
for atof() 

for GR I D_S CAL ARVECT OR T Y? E OUT 

for typadefi and FLOATSTRl NG_ FORMAT 

for Crld_Surfaca typadaf 

for Viewing Library (defines 

for ERROR () macro 

for 0DIM3O and DDIM4() macros 

for SCALAR, NUM_VARS ate 

for MAXJSCMAPS 4 colormap functions 

for script ing stuff 

for locking/unlocking 

for function declarations 

for gl variables 

for device variables 

for fisat variables 

for memory allocation 


pnl_addsubact (butSch listen. flsstFrame) ; 


but Numbs rOfPoints - pnl_mkact (pnl_wldo_button) ; 

but NumberOfPointa -> label - BUT_NUMBER Of POINTS_LABEL; 

but Number Of Points -> a - B UT_N UMB ER_OF POINTSX/ 

but Number OfPoints -> y - B t7T_N UM3 ER_OF~P O I N TS Y ; 

but Number OfPoint* -> upfunc “ but NumberOf Point s Upf unc; 

pnl_addiubact (botNumberOfPolnt s. fisat Frame) ; 

displa ySldNumbarOfPo int s () ; 

rho0 ••.*•**,****.••... ******* 

but Computot Iona lRho - pnl_mkact (pnl_wlda_button) f 

but Comput at iona 1 Rho -> label - BUT COX? U TAT IONA L RHO LABEL/ 

but Comput o t iona 1 Rho -> * ■ B UT _C OK? U? AT 1 0 NA L_RH OX ; 

but Computot tonal Rho -> y - B UT~C0K?UT AT I ONAL^RHO^Y ; 

but Computational Rho -> upfunc - but Computet iona lRhoUpf unc/ 

pnl^addiubact ( but Comput at ionol Rho , fiastFroma) ; 


diaple ySldComput at ionelRho () ; 



void fiastPanal (Panel* moinPonel, float stortX. float stortY) 

I 

Frame* frameData; 

flsstFrame « pnl_rakact {pn l_f tame) ; 
flsstFrame -> x « StortX +~F ISSTFRAKEX z 
fisstFrome -> y - stortY + FISSTFRAMEY; 
pnl_eddact ( fisstFrome, moinPonel) ; 

butlntegrote - pnl_mkoct lpnl_wide_button) ; 
but Intag rat a -> label = B UT I NTE GRAT E LABEL / 
but Intag rat a -> x - BUT INTEGRA! EX/ 
but Integrate -> y - BUTINTEGRATEY/ 
but Integrate -> upfunc " but IntegroteUpfunc; 
pnl_addsubact (but I nt egrot e, flsstFrame) / 

but Int er ferogr am “ pn l_mkact (pn l_wide_butt on ) t 
butlnterferogram -> label " BUT INTERFEROGRAMLABEL; 
but Inter far ogram -> x - BUTINTERFEROGRAMX; 
butlnterferogram -> y - 8UTINTERFER0CRAMY; 
butlnterferogram -> upfunc « but Int arfarogramUpfunc; 
pnl^addsubect (butlnterferogram. fisstFrome) ; 

butShadovGraph a pnl_mkact (pnl_nide_button ) / 
butShedowCr aph -> label - BUTS HADOMGRAPH LABEL ; 
butShadovGraph •) X ■ BUTSHADOWGRAPHX; 
butShadowGraph -> y ■ BUT SHAD 0HGRAPHY / 
butShadowCraph -> upfunc - butShadowGraphUpfunc; 
pnl^addsubact (butShodowGr oph , fisstFrome) / 


hoinf **•**•*/ 

but Experiment a 1 Rho - pnl_mkact (pnl wide button) ; 

but Experiment a lRho -> label - BUT_EXFERIMENTAL_RHO_LABEL; 

but Experiment a lRho -> x » BUT_EXP£RIMENTAL_RHO_X; 

but Experiment a lRho -> y « BUT_EXPERIMEN7 Al2rKO_Y; 

but Experiment a lRho -> upfunc - butExperimentalRhoUpfunc; 

pnl_eddsubact ( but Experimenta lRho, fisstFrome) ; 

displa ySldExperlmentalRhoO ; 

* el ****** 

but Nondimen* ions litedLengt h - pnl_mkoct (pnl_wide_button) / 

but Nondimen* ionol iredLength ~> label - B UT_ NOND I ME NS I ONAL I ZE D_LE NGT H_LAB EL ; 
but Nondimans iona liradLength -> X a BUT_N0ND IMENSIONALI ZED_LENCTH_X; 
but Nondimans ionol iredLength -> y a BUT~NOND IMENSIONALI ZED_LENGTH_Y; 
but Nondiman* iona liradLength -> upfunc — but Nondime ns iona liradLength Upfunc; 
pnl^addsubact (butNondimani iono liredLengt h , flsstFrame) / 

displa ySldNondiman* iona liradLength () ; 

p,,,, 

but Number Of Posses - pnl mkactlpnl wide button)/ 

but Number Of Posses -> label ■ BUT NUMBER OF PASSES LABEL; 

but Number Of Pa sees -> x - 8UT_NUM3ER_0F_PASSES_X/ ~ 

but Number OfPonee -> y - BU?~NUMBER_OF~PASSES~Y; 

but Number OfPo nee -> upfunc - butNumberOfPa eeeiUpfunc; 

pnl_eddsuboct ( but Number OfPoeeee , fisstFrome) ,* 

die playS 1 dNumber Of Passes () ; 

/*e. .......... * * p,i * *•**/ 


butSchlieren - pnl_mkact (pnl_wide_button) / 
butSchlieren -> label - BUTSCHL IERENLABEL; 
butSchlieren -> x - BUTSCHL I ERE NX; 
butSchlieren -> y » BU7SCHLIERENY/ 
butSchlieren -> upfunc - butSch 1 ierenUpfunc; 


but Psi Angle - pnl_mkoct (pnl_wide button) j 
but Pei Angle -> label - BUT_PSI_AliGLE_LABEL; 
but Psi Angle -> x « BUT_PSI~ANGtE_Xj ~ 
but PsiAng la -> y * BUT_PSI~ANGLE~Y; 
butPsiAngle -> upfunc » butPs lAng leUpfunc; 



xfisstSupportic ;: : 


pnl_add*uhect (butPsLAngle , fiaatFrame) ; 
diaplaySldPa LAngle 0 ; 
>**•••*•>•••••••••••*»••*• theta ****••*«' 


butThetaAng la - pn ljnkact (pnl wide_button) ; 
butTheta Angle -> label - BUT _TH ETA_ANG LE_L ABE L ; 
butThata Angle -> X - BUT_THETA_AKGLE Xf 
butThetaAngle -> y - BUT_THETA_ANGLEJff 
butThetaAngle -> upfunc = butThetaAngleUpfunc; 
pnl_oddaobact (butThetaAngle, fisstFrame) ; 

dlapleySldThetaAngle () ; 


'•* •»•**** *****•**•#**•#*» phi ***••*****•*•»* 

butPhiAngle ■ pnl_mkact (pnl wide_button) ; 
butPhiAngle -> label - BUT_PHI_AKGLE_LABEL j 
butPhiAngle -> X « BUT_PHI~ANGLE_X; 
butPhiAngle -> y <= BUT^PHI^ANCLEY; 
butPhiAngle -> upfunc » butPhiAngleUpfunc j 
pnladds ubact (butPhiAngle, fiaatFrame) ; 

diaploySldPhiAngle () ; 


but0z20 > pnl mkact (pnl wide_button) } 
butDz2D -> label - BUT_DZ_2D_LABEL; 
butDz2D -> a - BUT DZ_2D_X; 
butDz2D -> y - BUTJ>ZJ>D_Y; 
butDz20 -> upfunc « butDr2DUpfunc; 
pnl addaubact (bntDz2D, fiaatFrame) ; 

displays ldDz2D () ; 


butHaveLengt hO £ Light “ pnl_mkact (pnl_wide_button) ; 
butWauaLangthOELight -> label - BDT_WAVE _LENCTH_OF_L IGHTLABEL ; 
butMaveLangthOfLight -> x - BUT _HAVE_LENGTK_OF_LIGHT_X; 
butMaveLengthOfLight -> y - BUT_HAVE_LENGTH_OF_LIGHT_Y; 
butMaveLangthOfLight -> upfunc = butHaveLengt hOf Light Up func ; 
pnl_adda ubact {butMaveLangthOfLight, fiaatFrame) ; 


d iap layS ldMaveLengthOf Light () ; 


but Ob jectDl at a nee ■ pnl mkact (pnl wide_button) ; 
butOb jectDi stance -> label - BUT_OB JECT_DISTAHCE_LABEL; 
butOb jectDiatance -> x ■= BUT_OBJECT_DISTANCE_X; 
butObjactDiatance -> y - BUT_OB JECT_D I STANCE_ Y ; 
butObjactDiatance -> upfunc - butOb jectDlatancaUpfunc; 
pnl_addaubact (butObjactDiatance, fiaatFrame) ; 

diap laySldOb jectDiatance 0 ; 


butExpoaure * pnl_mkact <pnl_wide_button] j 
butExpoaura -> label - BUTEXPOSURE LABEL; 
butExpoaure -> x - BUTEXPOSUREJC; 


butExpoaure -> y = BUT_EXPOSURE_Y; 
butExpoaure -> upfunc - butExpoaureUpfunc; 
pnl_addaubact (butExpoaure, fiaatFrame) ; 

diaploySldExpaaureO ; 


;»•••****•*••»********««* nphi «•*•***»»»**»»»»*»»••*•***»*•»«•/ 

typeinNumberOfPlanea - pnl_mkact (pnl typeln) i 
typeinNumberOfPlanes -> x = TYPEIN NUMBER Or PLANES X; 
typeinNurabarOfPlanea -> y =■ TYPE1N_NUKBERJ3FJ>LANES_Y; 
typeinNumberOfPlanea -> label type “ PNL_LABELJBOTTOM; 
typeinNumberO f Planes -> label - TYPEINJJUMBER~OF_PLANES_LABEL; 

PNLACCESS (Typain, typeinNumberOfPlanea, len) ■ HOMBEROFPLANESJSTRINCLENGTH; 

■printf (PNL_ACCESS(Typein, typeinNumberOfPlanea. etr) .NUMBEROF PLANESFORMAT, ININUMBER 
_OF_PLANES) ; 

typeinNumberOfPlanea -> upfunc * type inNumberOf PlaneaUpfunc; 
pnl_addaubact (typeinNumberOfPlanea, fiaatFrame) ; 

upArrowNumberOfPlanea » pnl_mkact (pnl_up_ar row_button) ; 
upArrowNumberOfPlanea -> x - UPARROW_NUMBER_OF_PLANES_X; 
upArrowNumberOfP lanea -> y » UPARROW_NUMBER_OF_PLANES_Y; 
upArrowNumberOfPlanea -> upfunc = upArrowNumberOfPlaneaUpfunc; 
pnl_addaubact (upArrowNumberOfPlanea, fiaatFrame); 

downAr rowNumberOfPlanet « pnl_mkact (pnl_down_arrow_button) ; 
downArrowNumbarOfPlanei -> x « DONNARROH_NUM8ER_OF _ PLANES X; 
downAr rowNumber Of Plane a -> y - DOMNARROH_NUMBER_OF~PLANES~Y; 
downAr rowNumberOfPlonea -> upfunc = downArr owNumberOf P laneaUpfunc ; 
pnl_addaubact (downAr rowNumberOfPlanaa , fiaatFrame) ; 

reaet Number Of Planea ■ pnl_mkact (pnl_button) ; 
reaetNumberOf Planes -> x = RESET_NUMB ER_OF_PLANES_X; 
rea at Number Of Planea -> y - RESET_NUMBER_OF_PLANES_Y; 
reaetNumberOf Planes -> labeltype = PNL_LABEL_CENTER; 
reset NumberOf Planes -> lobel ■ "R" 

reset NumberOf Planes -> upfunc • reset Number OfPlane a Upfunc ; 
pnl_eddaubact (reset Number Of Plonss . fiaatFrame) ; 

'******** “** / 

butSur facelJK - pnl mkocrt (pnl wide button); 
but Sur focal JK -> lobel = BUT_SURFACE IJK LABEL; 
but Sur facelJK -> x = BUT_SURFACE_IJK~X; 
butSur facelJK -> y = BOT_SURFACE_I JK~Y; 
butSur facelJK -> upfunc - butSur facel JKUpfunc; 
pnl_adda ubact (butSur facelJK. fiaatFrame) ; 

but ResetSur facelJK * pnl_rakoct (pnl_wide_button) ; 

but Rea etS ur face I JK -> label - BUT RESET_SURFACE_IJK_LABEL; 

but Rea etSur facelJK -> x - BUT RESET_SURF ACE IJKX; 

but Rea at Sur facelJK -> y - BUTJlESET_SURr ACE~IJK_Y; 

but ReaetSur facelJK -> upfunc « butResetSur focal JKUpfunc; 

pnl_addauboct (but Re a etSur facelJK, fiaatFrame) ; 


‘ kni feEdgt 


dia playUpArrowKn ifeEdge () ; 
/MtMtitHttmtttttttn f rings 


typeinFringas ■ pnl_mkoct (pnl_typein) ; 
typeinFringoa -> x - TYPEIN FRINGES_X; 
typeinFringas -> y » TYPEIN~FRINGES_Y; 


fisstSupport.c 


typelnFr ingaa -> labeltype - PNLLABELBOTTGM; 
typeinFr ingen -> lobel = TYPEINFRINGESLABEL; 

PNL_ACCESS (Typain, type infringes, len) = FRINGES_STRING_LENGTH; 
sprint f(PNL_ACCESS (Typain , typeinFri nges . at r) , FRI NCES_FORMAT , IN I_FRINGES) ; 
typelnFr ingaa -> upfunc “ typelnFr ingesUpfunc; 
pnl_odd* ubact (type inFr ingea , fiaatFrame) ; 

upArrowFringes * pnl_mkect (pnl_up_arrow_button) ; 
upArrowFrlngea -» x * UPARROK_FRINCES_X; 
upArrowFringes -> y ■ UPARROH_FRINGES_Y; 
upArrOwFringes -> upfunc ■ upAr rowFr ingesUpfunc; 
pnl addsubact (upArrowFringes, fisstFrame); 

downArrowFr inges ■ pnl_mkoct <pnl_down_arrow_button) ; 
downAr rowFr ingea -> x = DOKNARROHFRINGESX; 
downArrowFr inges -> y = DOWNARROMFRINCESY; 
downArrowFr inges -> upfunc - downAr rowFr ingesUpfunc; 
pnl_addsubact (downArrowFr inges, fisstFrama) f 

resetFringes » pnl_mkact ( pnl^button) ; 
resetFr inges -> x - RESET_FRINGES_X; 
reaatFr inges -> y - RESET_FRINGES_Y; 
resetFringes -> labeltype “ PNL_LABEL_CENTER; 
resetFringes -> label “ " R” ; 

resetFringes -> upfunc = reset Fr ingesUpfunc; 
pnl^addaubact (resetFringes, fiaatFrame) ; 


diaplayUpAr rowFr ingeType () ; 


pnl_£ixoct (fiaatFrame) ; 


void butlntegroteUpfunc (Actuoto: 


if (ini Intag ret eParama () ) 

I 

if (xyzDota — NULL) 

i 

if ( 1 ( xyzData • (float*) mallocl xyzByteSize ))) 

I 

printf(“lt Unable to allocate memory H\n“) ; 
exit (0) t 

I 

if ( t (rhoData - (float*) malloc( rhoByteSize ))) 

I 

printf(“i% Unable to ollocete memory ll\n"); 
exit (0) ; 


else if ( i jkSizeCnewi jkSize) 

I 

1 £ ( l (xyzData - (float*) i 


eol loc ( (void*) xyzData, xyzByteSize ))) 
llocata memory for xyr l%\n“); 


if ( I (rhoDoto « (float*) rea Hoc ( (void*) rhoData. rhoByteSize ))) 

I 

printf("t% Unoble to allocate memory for rho t%\n" ) ; 
exit (D) ; 

I 

1 

InixyzRho ( xyrData, rhoData ); 
image£_(xyrDato. rhoData) ; 
imageDrown - FALSE; 

old inixyrRho ( float* xyz. float* rho ) 
int 

inc , i_inc , j_inc, k_ine. xyz_inc; 

int 

data_imax, dato_jmax, dato_kmox; 
lock_cur_object () ; 

data_imax ” grid_fiast -> ranges [ I] (DIM] ; 
dat a_jmax - grld_fiast -> ranges [J] (DIM] ; 
dat a_kmax = grid'fiaat -> ranges (K) (DIM) ; 
for ( inoO, xy*_inc ■ 0; ayz_inc < 3; xyx_inc++ ) ( 

for ( k_inc “ grid_£lsst -> ronges(K) (STARTJ-l; 

k_inc < grid_£isst -> ranges (K) [END] ; k_ine++ ) | 

for ( J_inc * grid_£iaat -> ranges [ J) ( STARTJ-l; 

j_inc < grid_fi»»t -> ranges (JJ (END] ; j_inc++ ) ( 
for ( i_inc « grld_fisst -> ranges ( I] (START] -1 ; 

i_inc < g r id f is st -> ranges ( I] (END] ; i_inc++ ) ( 

* (xyz+inc) “ • (xyzFisat+k_inc*data_jmax*dato_imax*3 
+ j_i n c *dot o_ima x* 3+i_i nc* 3+xy *_i nc) ; 
if (xyz_i nc--0) 

• (rho+inc) - * (rhoFisst+k_inc*doto_jmox*dato_iinox*NDIM 
+j_inc*data_imax*NDlM+i_inc*NDIM) ; 

inc++; 


1 


I 


unlock_cur_ob ject {) ; 


int in lint eg rat eParama () 

I 

col llnteg rote » TRUE; 
lock cur_object () ; 
newijkSize- (gridfi 

• ( gr id_f i sat -> 

* (gr id_f last -> 
xyzFiaat » (float *) 
rhoFiaat - (floot •) 
lntag_.ngrid m 0; 
integ_.npta * numberOfPointa; 
integ_.rhoO * conput at i one lRho; 
integ .rhoinf - exper iment olRho; 
integ .al - nondimen ■ iona 1 iredLength; 
integ .pass « numberOfPasses; 


it -> range* (I) [END] - grid_fi**t -> range* [ I ) (START) +1) 
nges [J] (END) - grid_fi**t -> ranges (J] [START] + 1) 
nges [K] [ END ) - grid_fi**t -> ranges (K] [START] + 1); 
hm_attach{ grid_fisat -> f ieldid* [GRID_ID] ); 
hm~attach ( grid_fi**t -> f ieldid* [VECTOR_ID] ); 




OF POOR QUAMTY 






liljllll 


• U! „ . » IIJIP 1111 

. j;:*; mkm m « w&mmm 

ir.tag_.pii « palAngla ; 
integ .theta - thetoAngle; 



printf <' , v«rt*%£, horir*%f\n", int«rf_eV«rt , interf^.hor iz) ; 

integ .phi - phiAngle ; 



intarf .cona- 8. 0*at an ( 1.0) *integ .al*int*g .pa it/ (intar f .awl*intag . atrch); 

integ .dz - dz2D; 



if (intag .ctype— ' 2 ’ ) inter f .coni- 8. 0*aten (1.0) *intag .al*int*g .paaa/intarf .awl; 

integ .nphi * numberOfPlanaa ; 



pr intf fconi -If. al=%a, paaa-lf. awl-la, atrch-lf\n* , int arf .con*. 

intag .g atrch - txpoiur*; 



intag .al. intag .paaa, Intarf .awl , intag . atrch) ; 

integ_.ctype * '3'; 
intag .mulaln - 'a'; 



fringai_ (lint arf_.com) ; 




imaga t it la - imago int ar f arogram; 

i f ( 1 intag_. ngr id-Mj 



dr a wimage_(4 itnage_. ixmex, 4 image_. lymax, 4 h»g*_.p|3] (0] ) ; 

aubjkl . jdim[0] - grid fiaat -> range* { I] [DIMJ ; 
aubjkl .kdimlOJ - grid - fiaat -> range* [J] [DIM] ; 



void butShadowGxaph Bp func (Actuator* act) 

aubjkl .IdimlO] - grid fiaat -> range* [K] [DIMJ ; 

I 



t 

if ( icalllntagrate) 




but Int agrataUpfunc (act ) ; 




«hadow_. camera - objact Diatanca*intag_. atrch*integ_.el ; 
ahadowg (4ahadow .cam— ra) ; 

/* a a sum* a aingla grid */ 




data .naub [0] - 1; 



imago titla - imaga ahodowgraph; 

data . jaubl [0] [0] - 1; 

data - . jaub2 [0] [0] - aubjkl ,jdim[0]; 



drawimaga (iimoga .ixmax, 4 imaga . iymax, 4 imaga .p[3)[0)); 

t 

data . kaubl [0] [0] - 1; 

data . kaub2 [0] [0] - aubjkl .kdim[0); 

data - , laubl [0] [0] - 1; 



woid butSchliaranOp func (Actuator* act) 
1 

data . Iaub2 [0] [0] -aubjkl .ldim[0]; 



if ( t ca 11 1 ntag rata) 




but Int agrataUpfunc (act) ; 

unlock_cur_objact () ; 



printf ("calling achlieran\n") ; 
ach 1 la ran ( 4 k n 1 f aEdga) ; 

if( ijkSiza >- nawijkSize ) 
[ 



imaga titla - image ichlieren; 

raturn FALSE; 



drawljTuig«_{( image_. ixnux, ti*wjge_. iymax,( ( . p [ J ) (0))) ; 

alia 




ijkSiza - nawijkSiza; 
xyzBytaSlze - 3 * 4 * ijkSiza; 



int drawlmage_( int *xdim, int *ydiro, float *pix ) 

rhoBytaSiza - 4 • ijkSiza * 5; /* time* 5 temporarily 

*/ 


woid Init Window (int, int) ; 

raturn TRUE; 



woid DumpPixa (int , int , float*) ; 

J 



if ( limageDrawn) 

void but Int erferogramUp func (Actuator* act) 
1 



if ( image_gld) ulncloia ( imoga_g id) ; 
imagaDrawn - TRUE; 

if ( Icalllntagrota) 



Init Window (*xdim. *ydim) ; 

but IntagrataOpfqnc (act) ; 



J 

winaet (image gld) ; 

intar f .awl - waveLangthO flight ; 



wintit le( image titla); 

i f (f r ingaTy pa— FRI NCETYPEHORI ZONTAL) 



DumpPixa ( *xdim. *ydim,pix) ; 

interf_.vart - 0.0; 
intarf_.hor iz - (float) fringaa; 



woid Inlt Window (int xdira, int ydlm) 

alia if ( fringaTypa— FRINGE TYPE VERTICAL) 



extern woid prafaira (long, long); 
extern long int winopan (String) ; 

intar f_.horiz = 0.0; 

intarf .wart - (float) fringaa; 

1 



prafaize (xdim, ydim) ; 

image gid - winopan (“ image" ) ; 

alaa 



gconfig () ; 

intarf .vart " 0.0; 




intarf_.hotlz » 0.0; 



woid DuirpPlxaf int xdim, int ydim, float *pix ) 

intarf_.typa - fringaTypa; 



extern wold ractwrita (Screencoord, Scraancoord, Screencoord, Scraancoord, conat Colari 









■ fisstSupporl.c 

ndax[]) ; 



1 

artarn float ftrune (float) f 

itatic unaignad abort int *pixa - NOLL; 
long int incr; 

if (limageDrewn) 



numbarOfPointa = aldNumbarOfPointa -> vol; 

1 



woid typainComputat ionalRhoUpfunc ( Actuator* act ) 

if(pixa) 



float tmp - at of (PNL ACCESS (Typain, ty pei nComput at iono lRho, atr) ) ; 

pixs “ (unsigned short int*) tralloc( (unsigned long int) 

xdim*ydim*2 ) ; 

if ( tmp < COMPUTATIONAL_RHO_MIN ) 

alaa 



comp ut at Iona 1 Rho - CCMPUTAT IONAL_RHO_MIN ; 

fraa(pixa) ; 



alaa lf( tug> > COMPUTATIONAL RHO MAX ) 

pixa ■ (unsigned short Int*) malloc( (unsigned long int) 

xdim*ydim*2 ) ; 

( 

i 



comput at io na 1 Rho - COMPUTATIONAL RHO MAX; 

for(incr-0; incr<xdim*ydim; incr-M-1 
1 



] 

ala# 

* (pixa+incr) - ftrunc( (* (pix+incr) /256) *1024 +64.4999 

1 

) ; 


t 

computational Rho » tmp; 

ractwrita (0, 0, xdira-1 . ydim-1. pixa) ; 

1 



aprintf (PNL ACCESS (Typain. typainComputat ionelRho. atr) , COMPUTATIONAL RHO FORMAT, compute 




tlonalRho) ; 
1 




void butConputat lone lRhoUp func ( Actuator* act ) 

1 



if( f logCompu tot iono lRho - 1 flogComputat ionelRho ) 

int tmp - atsl (PNL ACCESS (Typain. typeinNumberOfPolnt a . atr) ] 

1 


1 

pnl dalact (typainComputat Iona lRho) ; 

if ( tmp < NUMBER OF POINTS MIN ) 
[ 



pnl_f ixact (fiaatFrama) ; 
diaplaySldComputat iono lRho 0 ; 

n umber Of Pointt - NUMBER OF POINTS MIN; 

1 



} 

alaa 

alaa if( tmp > NUMBER OF POINTS MAX ) 

1 



t 

pnl dalact (aldCemputetionelRho) ; 

numbar Of Point a - NUMBER OF POINTS MAX; 

1 



pnl f ixact (fiaatFrama) ; 
diaplayTypainComputationalRho () ; 

else 



t 

numbarOfPointa - tmp; 

! 



void aldComputat iono lRhoUp func ( Actuator* act ) 

aprintf (PNL ACCESS (Typain, typainNumbarOfPoint a, atr) , NUMBER 

OF 

POINTS FORMAT, numbarOfP 

comput at iona lRho — ■ ldConputet ionelRho -> val; 

oint •) ; 
} 



] 





void but Numbar Of Point a Up func ( Actuator *act ) 
1 



wold typeinExperlm»ntelRhoUpfunc( Actuator* act ) 

if( flag Numbar Of Po int a - 1 f lagNumbarOf Point a ) 

l 



1 

float tmp - atof (PNL ACCESS (Typain, typalnExparimantalRho, atr )) ; 

pnl dalact (typainNumbarOfPoint*) ; 



if ( tmp < EXPERIMENTAL RHO MIN ) 

pnl f ixact ( fiaatFrama) ; 
diaplaySldNumbarOfPointa () ; 



1 

experiment a lRho - EX P ER IMENT AL_RH0_M IN; 

alaa 



alaa if( tmp > E XP ER IME NTAL_RH 0_M AX ) 

pnl dalact (aldNumbarOfPointa) ; 
pnl f ixact ( fiaatFrama) ; 



experiment a lRho - EXPERIMENTAL RHO MAX; 

1 

diaplayTypa inNumberOfPoint* () ; 



alaa 

1 



experiment a lRho - tmp; 

woid aldNumbarOfPoint aUpfunc ( Actuator *cct ) 



1 


QBtftlNAL PA GE IS 
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mm. '■ 


fis^Suppdrtic: 


raid ■ IdNond imansionsli zadLangt hOpfunc ( Actuator* act ) 

I 

nondimans lonoliradLangth ■* sldNondimensioneliradLangth -> val; 


olRhoDpfunc ( Actuator* act ) 


pnl_daloct (typsinExpar iroanta lRho) ; 
pnl_f ixact ( fisstFrama) ; 
displays IdExpar imantolRho () ; 


float tnp “ atof (PNL_ACCESS (Typain, typainNumbarOfPasi 
if( tmp < NUMBER_OF_PASSES_MIN ) 


pnl_dalact { aldErpar imanto lRho) ; 
pn If ixact ( f isstFromo) ; 
displayTypainExpar imantolRho () ; 


• Isa If ( tmp > N UM3 E R_OF_P ASS E S MAX ) 


aldSxpar imantalRhoOpfunc ( Actuator* act ) 
rpar lmanta lRho - sldExparimontolRho -> val; 


>rintf(PNL_ACCESS(Typain,typainNumbarO£PassaB. str > . NUMBER_Or_PASSES_FORKAT. numbarOfPa 


' NondimansionoliradLongth 


►naliradLangth - NONDIMENSIONALIZEDLENGTHMIN; 


roid butNumbarOf Pas aasUpfunc ( Actuator* act ) 
if ( flagNumbarOfPassas » I f legNumbarOfPasaaa ) 


pnl_d«lact (typain NumbarOfPa si 
pnl_fixact (fisstFrama) ; 
displaySldNumbarOfPassaa () ; 


nondiraansionaliradLangth - NONDIMENSIONALIZED_LENGTH_MAX; 


nanslonalizadLangth ■ trq 


pnl_delact (aldNumbarOfPaasas) ; 
pnl_f ixact ( f is at Frame) ; 
disployTypainNumbarO fPassas () ; 


void a ldNumbarOf Pas sasOpfunc ( Actui 
,NONDIHENSIONALIZED_LENG J 

numbarOfPa isas = aldNumbarOfPasi 


pnl_doloct ( typainNondiman a ionali zedLang th) ; 

pnl_f ixact (fisstFrama) ; 

di tplayS ldNondimans lone 1 i zadLangth ( ) ; 


pnl_dalact < sldNondimansio nail zadLangth) ; 
pnl_f ixact (fisstFrama) ; 

disployTypainNondimansionali zadLangth 0 ; 


void t ypa inPs IAng laUpfunc ( Actuat 


pa iAng la - PS I_ANGLE_MIN; 

I 

•Isa if ( tmp > PSI_ANGLE_MAX 


paiAngla - PS I_A»GLE JiAX ; 


fisstSuppoitx : 


a pr i nt f ( PNL_ACCESS (Typa in , t y pa i nPa iAng la , ■ 1 1 ) . PS I_ANGLE_FORMAT . pa iAng la); 


thatoAngla “ aldThatoAngla ■ 


void t ypa inPh IAng laUpfunc ( Actual 


pnl^daloct (typalnPslAngla) ; 
pnl f ixact (fisstFrama) ; 
displays ldPsiAnglaO ; 


pnl dalact ( sldPs iAng la) ; 
pnl f ixact ( fisstFrama) ; 
dilplayTypa inPs iAng la ( ) ; 


phiAngla » PH I_ANGLE_MIB; 
ilsa if< tmp > PHI_AVCLE_MAX ) 


phiAngla - PH I_ANGLE_MAX; 


spr int f (PNLACCESS (Typain, typainPhiAngla, str) . PHI_AKClE_FORMAT. phiAngla) 


thatoAngla a THETA_ANGLE MIN; 

I 

•Isa if( tmp > THETA ANGLE_MAX I 


thatoAngla = THE7A_ANCLE_KAX; 


void butPhiAng laUpf unc ( Actuator* act 

I 

iff flogPhiAngla - 1 flagPhiAngla ) 

l 

pnl daloct (typainPhiAngla) ; 
pnl_f ixact (fisstFrama) ; 
dis playSldPhi Anglo () ; 


pnl_da loct (sldPhiAng la) ; 
pnl_fixact (fisstFrama) ; 
dis ployTypainPhlAng la () ; 


sprint f (PNL_ACCESS (Typain. typainThataAngla , str) , THETA_ANGLE_FORMAT, thataAngla) 


if( flog ThatoAngla ■ I f lagThato Anglo ) 

( 

pnl dalact (typa inThataAng la) ; 
pnl f ixact (fisstFrama) ; 
displays IdThatoAng la () ; 


pnl_daloct ( s IdThatoAng la) ; 
pnl f ixact (fisstFrama) ; 
diaplayTypa inThotoAnglo () ; 


rold sldPhlAnglaUpfunc ( Actuator* 
phiAngla ■ sldPhiAnglo -> val; 


roid typainDz2DUpfunc ( Actual 


float tmp » atof (PNL ACCESS (Typain , typal nDr2D, str) ) ; 
If ( tmp < DZ_2D_MIN ) 


•laa if ( tmp > DZ_2D_MAX ) 


OF POOR QUAUTY 


t 


mm 


fisstSupport.c 


aprintf (PNL_ACC£SS(Typain,typainDz2D.atr) . DZ2DF0RMAT, dz2D) ; 


roid reset Nun&arOfPlanasOpfunc ( Actuatoi 


if ( flagDz2D “ lflogD*2D ) 

1 

pnldaloct (typeinDz20) ; 
pnl_f Ixact (fiaatFrama) ; 
displays ldO z2D (} ; 


pnl_dalact (sldDz2D) ; 
pnl_f ixact ( fiaatFrama] 
diaplayType inDz2D ( ) ; 


dz2D *= a ldDz2D -> val; 


numberOfPlanaa - I N I _NUMB E R_OF _PL AKES ; 

apr int f (PNL_ACCESS (Type in, typainNumbarOf Plena* , atr) , NUMBER_OF_PLANES_FOKMAT. numbs rOf PI 
i«a); 

pnl_fixact (typelnHumberOfPlanaa) ; 


* Ha vaLengthOf Light 


id t ypa inHaveLengthOf LightUpfune ( Actuator* act ) 

float trap ■ atof (PNL_ACCESS (Typeln.typeinHaveLengthOfLight, atr) ) ; 
if( trap < HAVE LENGTH OF LIGHT MIN > 

I 

wevaLangthOfL ight - HAVE LENCTH OFLIGHTMIN; 

I 

•la a if{ trap > HAVE_LENGTH_OF_LIGHT_MAX ) 

I 

wav«L«ngth Of Light - HAVE_LENG7 H OF LI GHT MAX ; 


float trap - atof (PNL_ACCESS(Typeln, typainNumbarOfPlanaa . atr) ) ; 
if( trap < NUMBER_OF_PLANES_MIN ) 

( 

numbs rOf P la naa - NUMBER OF_P LANE S_M I N ; 


alia if < trap > NUMBER OF PLANES MAX ) 

I 

numbs rOfPlanas *■ NUMBER OF PLANES MAX; 


wevaLangthOfL ight ■ trap; 


'old butWaveLengthOfLightUpfunc ( Actual 


r) , HAVE_LENCTH_OF_LICKT_FORMAT.wav 


!£( flegHaveLangthOf Light 


1 flag Have LangthOfLight ) 


pnl_da lect (type InHaveLengthOf Light > 
pnl_f ixact (fiaatFrama) ; 
diaplaySldHaveLengthOf light () ; 


a print f ( PNL_AC CESS fTypoin . typainNumbarOfPlanaa , atr) , NUMBER_OF_E 


pnl_delact (aldHavaLangthOfLight) ; 
pnl_f ixact (fiaatFrama) ; 
diapleyTypainHavaLangthOfLight 0 ; 


roid aldHavaLengthOfLlghtUpfunct Actuator* a< 
ua vaLa ngt hOf L ight = aldHavaLangthOfLight - 


lownAr rowNumbarOfPlanaaUpf unc ( Actuator* act ) 
| numbarOfPlanaa > NUMBER_OF_PLANES_MIN ) ( 


i inOb jactDiatoncaUpfunc ( Actuat< 


if ( trap > OBJECT J> 1ST ANCEJIAX ) 




i fisstSupport.c 


object Distance - OBJECT_D 1ST ANCE__MAX; 


pnl_dalact (aldExpoaura) ; 
pnl_f ixact (fiaatFrama) ; 
diaplayTypainExpoaura () ; 


sprint f (PNL_ACCESS (Typein , t ypeinOb ject Di at ai 


i. atr) . OB JECT_DISTANCE_FORMAT, object Di at 1 


'old sldCxpoauraUpfunc( Actuator* act ! 
axpoaura » aldExpoaura -> val; 


pnl_daloct (typainObjactDiat 
pnl~f ixact (fiaatFrama) ; 
d iapleySldObjact Distance ( ) j 


pnl_dalact ( sldObjactDlatanca) ; 
pnl_f ixact (fiaatFrama) j 
diaplayTypalnObjactDiatancaO ; 


butSur fecal JKUpfunc < Actuator' 


urfacalJK] - grid_fJ 
u r focal JK) - grid_fi 
urfacalJK) * grid_fi 
ur facalJK) *■ grid_fi 
urfacalJK) ■ grid_fJ 
urfacalJK) “ grld_fi 


angaatl] [START]; 
angoa [I] (END); 
angaa(J) [START]; 
angaa(J) [END] ; 
angoa [K] [START]; 
ongaa [It) [END) ; 


roid a ldOh jactDiatoncaUpfunc ( Actual 


a ldOb jactDi atanca -> val; 


I void butRaaatSur facal JKUpfunc ( Actuator* act ) 


also if ( trap > EXPOSUREJiAX ) 


• print f (PNL_ACCESS (Ty pain, t ypa inExpoaur< 
intag .gatrch • axpoaura; 

I 

raid butExposureUpfunc ( Actuator* act ) 

I 

lf( flagExpoaura - I f lagExposur a ) 

I 

pnl_dalact (typainExpoaura) ; 
pnl~f ixact (fiaatFrama) ; 
d iapleyS ldExpoaura 0 ; 


I .EXPOSURE^FORMAT, axpoaura) ; 


>oid diaplayTypainNumbarOfPoii 


typalnNumbarOfPointa “ pnl_rahoet (pnl_typain) ; 
typainNurabarOfPointa -> x - TYPEIN NUMBER OF_POINTS X; 
typalnNumbarOfPointa -> y - TYPEIN~NUHBER_OF j’OINTSJf; 

PNL_ACCESS (Type in, typalnNumbarOfPointa. Ian) - NUMBER OF_POI NTS STRING LENGTH; 
sprint f (PNL_ACCESS (Typein, typalnNumbarOfPointa, atr) , NUMBEROFPOINTSFORMAT. numbarOfPo 
int a) ; 

typo in NumbarOfPo int a -> upfunc « typainNumbarOfPointaUpfunc; 
pnl_odd«ubact (type in NumbarOfPo int a, fiaatFrama) ; 


void diaplaySldNumberOfPoli 

I 

aldNumbarOfPointa « pnl_mkact (pnl_alidaroid) ; 
a Id NumbarOfPo int a -> x - SLD NUMB ER_OF POINTS X; 
aldNumbarOfPointa -> y - SLDJJUMBER Of"pOINTS~’Y; 
aldNumbarOfPointa -> rainvol - NUM BER_OF_PO I NTS_M I N ; 
aldNumbarOfPointa -> maxvol - NUMBER~OF~POI NTS~MAX ; 
aldNumbarOfPointa -> val ■ (floot) numbarOf Points; 
aldNumbarOfPointa -> upfunc * aldNumbarOfPo int aUpf ur 
pnl_addsubact (sldNumbarOfPolnt a, fiaatFrama) ,- 
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/•*>•****■■**••••**• r ho0 •••••*********#•»**»*«*••••**•*»*****«*•/ 

void di aplayTypeinComput at iona lRho () 

[ 

typeinComput at iona lRho «= pnl_mkoet (pnl^typein) ; 
t yp« inComputat Iona lRho -> x » TYPEIN_CCMPUTATIONAL_RHO_X{ 
typoinComputet ional Rho -> y - TYPEIN_CCKP0TATIONAL_RHO_Y; 

PNL_ACCESS (Typain, typeinCoogjUtat ionelRho. len) - CCKPUTATIONAL_RHO_STRING_LENGTH; 
■print f (PNL_ACCESS (Typain, typeinComput at ionelRho, atr) . CCMPOTATIONAL_RHO_FORMAT, comput 
at ional Rho) ; 

typa inComputot ionelRho -> upfunc “ typeinComputat ionalRhoOpfunc; 
pnl_eddsubect (typa inConputat ionelRho. fisstFrema) ; 


void di aplaySldConputat ional Rho 0 

1 

a ldCompu tat ionelRho - pnl_nJcact (pnl_i 1 idaroid) ; 
a ldComput at ionelRho -> * ■= SLD_COMPUTATIONAL_RHO_X; 
a ldCoraput at ionelRho -> y ■= SLD_COKPUTATIONAL_RHO_Y; 
a ldConputat ionelRho -> minval “ COM POT AT 1 0 NAL_RH 0__MI N ; 
a ldComput at ionelRho -> raxvil - COMPOT AT IONAL_RH 0 JiAX ; 
a ldCotnpu tot IonelRho -> val « comput at ional Rho ; 

* ldComputet ionelRho -> upfunc * aldComputat ionolRhoOpfunc; 
pnl^addaubact (aldConputat ionelRho, fieatFrame) ; 


/************************* rhoinf **•*****•**»*******•*****•»»»**••»/ 

void dliplayTypeinExperimentelRho () 

t ypa InExpar imanta lRho « pnl mkact (pnl_t ypa in) ; 
t ypa inExpar intent a 1 Rho -> x - TYPEINEXPERIMENTALRHOX; 
t ypa inExpar intent a 1 Rho -> y - TYPEINEXPERIMENTALRHOY; 

PNL_ACCESS (Typa in > typainExpar imanta lRho, lan) - EXPERIMENTAL_RHO_STRING_LENGTH 

a print f (PNL_AC CESS (Typain , typainExpar intent alRho. atr) , EXPERIMENTAL_RHO_FORMAT, exper ime 
ntalRho) ( 

typainExpar intent a lRho -> upfunc ■ typainExpar imsntalRheOpfunc; 
pnl_addaubact (typa inExpar imanta lRho . fiaatFrama) ; 


void di a p la ySldExper imanta lRho () 

l 

a IdExper imanta lRho <* pnl_mkact (pnl_alideroid) ; 
a IdExparima ntalRho -> x i SLD_EXPERIMENTAL _RHO_X; 
a IdExpar imanta lRho -> y - SLD_EXPERIKENTAL_RHO_Y; 
a IdExparima ntalRho -> minval - EXPERIMENTAL_RHO_MIN; 
a IdExper imanta lRho -> ires x val - EXPE RIM£NTAL_RHO_MAX; 
a IdExpar imanta lRho -> val * experiment alRho; 
a IdExpar imanta lRho -> upfunc ■ aldExparimantalRhoOpfunc; 
pnl_addaubact (a IdExparima ntalRho, fiaatFrama) ; 


/ .«*«****»**»*•. a 1 

void diaplayTypei nNondimena iona lizedLengt h 0 

I 

t ypa inNondiman « ionoli radLength ■ pn l_mkact (pn l_t ypai n) ; 

t ypa inNondimen a iona liradLangth -> X « TYPE I N_NOHD IKE MS 1 ONAL I ZE D_L ENGT H X; 
t ypa inNondimen a iona li radLength -> y » TYPE IN_NONDIMENSIONAL IZED_LENGT H~Y ; 

PNL_ACCE5S (Typain, type inNondimen a ional i zed Lais 9 th , lan) - NONDIMENS IONALIZEDLENGTHSTR 
IRC LENGTH; 

aprintf <PNL_ACCESS (Typain . typainNondimana iona lizedLengt h. at r) , NONDIME NSIONAL IZED_LENG 


TH_FORMAT . nondlman* iona 1 IredLength) ; 

typainNondimana ional izedLength -> upfunc «* t ypa inNondimen a io na 1 i rad La ngthOpfunc; 
pn l__oddiubact (t y pa in Nondimena iona 1 i zedLengt h, fiaatFrama) ; 


void displaySldNondiman aional IzadLength ( ) 

l 

a ldNondlraen a ional iredLength ■ pnl_trkoct (pnl_al idaroid) ; 
a ldNon dimensional iredLength -> x - SLD_NOND IMENSIONALIZED_LENCTH _X; 
a ldNondimans ional IredLength -> y m SLD_NOND IKENSIONALIZED_LENGTH_Y; 
aldNondlmanaiona liradLangth -> minval » NONDIMENSIONALIZED_LENGTH_MIN; 
a ldNondlmen a ional IredLength -> maxval - NONDIMENSIONALIZED_LENGTH_MAX; 
■ldNondimans iona liradLangth -> vol ■= nondimanaionalizadLangth; 
aldNondimansiona liradLangth -> upfunc - aldNondimani ional iredLength Upfunc; 
pnl_addaubact (aldNondimana iona liradLangth, flaat Frame) ; 


PO** ******* * * / 

void displayTypeinNumberOfPasaes () 

I 

typeinNumberOfPaaaea “ pnl^mkact (pnl_typaln) ; 
typeinNuinberOfPaaaea -> x « TYPEINNUMBEROFPASSESX; 
typeinNumberOfPaaaea -> y » TYPEINNUMBEROFPASSESY; 

PNL_ACCE3S (Typain. typalnNumharOfPaaaaa, Ion) = NUMBER_OF_PASSES_STRING_LENGTH; 
aprintf (PNL_ACCESS (Typain, typeinNumberOfPaaaea, str) , N0MBER_OF_J>ASSES_FOFMAT. number Of Pa 

•*•■) ; 

typeinNumberOfPaaaea -> upfunc - typeinNumberOfPaasaaOpfunc; 
pnl_addaubact (typainNumbarOfPa aaaa. f iaat Frame) ; 


void disploySldNumbarOfPoasaa 0 

t 

aldNumbarOfPaaaaa “ pnl_mkact ( pnl_alidaroid) ; 
aldNumbarOfPasaas -> X - SLDNOMBEROFPASSESX; 
aldNumbarOfPaaaaa -> y - SLD_NUMBER_OF_PASSES_Y; 
aldNumbarOfPaaaaa -> minval - NUMBER_OF_PASSES_HIN ; 
aldNumbarOfPaaaaa -> maxval - NUMBER_OF_PASSES_KAX ; 
aldNumbarOfPaaaaa -> val « numbarOfPa aae a ; 
aldNumbarOfPaaaaa -> upfunc - aldNumberOfPa aaaaOpfunc; 
pnl_addaubact (aldNumbarOfPaaaa*, fiaatFrama) ; 


void dlaplayTypa inPaiAngla 0 

i 

typa inPaiAngla » pnl_rokoct <pnl_typain) ; 
typa inPaiAngla -> x - TYPEIN_PSI_ANCLE_X; 
t y pain Pa i Angle -> y - T YPEIN_PSI_ANCLE_Y; 

PNL_ACCESS (Typain . typainPa iAng la , lan) - PSI JUJCLE_STRING_LENGTH; 
sprint f (PNLACCESS (Typain. typa inPaiAngla, at r> , PSl“ANGLE_FORMAT. pa iAng la) 

typainPa lAngla -> upfunc “ typain Pa IAng leUpfunc ; 
pnl oddaubact (typainPaiAng la, fiaatFrama) ; 


void diaplaySldPalAngle () 

{ 

aldPalAngla “ pn l_mkact (pn l_a 1 idaroid) ; 
aldPaiAngla -> x - SLDPSIANGLEX; 
aldPaiAngle -> y » SLD_PSI_ANGLE_Y; 
aldPaiAngla -> minval « PSI_ANGLE_MIN; 
aldPaiAngla -> maxval « PSI_ANGLE_MAX; 


fisstSupport.c 


aldPaiAngla -> val “ paiAngla; 

•ldPaiAngla -> upfunc ■ aldPaiAnglaOpfune; 
pnl oddsubact (aldPaiAngla , fiaatrrama) ; 


that * * **••*»/ 

void di iplayTypeinThetaAngle () 

f 

t ypa InThetoAng la ■» pnl mkact (pnl typain); 
t ypa inThata Angle -> x » TYPE IN_THETA_ANGLE_X; 
typainThataAngla -> y « TYPE IN THETA_ANGLE_Y; 

PNL_ACCESS (Typain, t ypainThat aAng la, lan ) - THETA_ANGLE_STRING_LENGTH; 
aprintf (PNLACCESS (Typain, typa inThataAng la, at r) , THETAANGLEFORMAT, thataAng la) j 
t ypa inThata Anglo -> upfunc * typeinThatoAngleUpfunc; 
pnl_addaubact (typa inThataAng la. fiaatFrama) ; 


void di aplaySldThetaAngle () 

1 

■ ldThetaAng la ° pn l_mkact <pnl_a 1 idaroid) ; 
aldThataAngla -> x - SLD_THETA_ANGLE_X; 
ildThetaAngle -> y - SL D_TH ETA_ANGL E_Y ; 
aldThataAngla -> minval - THETA_ANGLE_MIN; 
aldThataAngla -> maxval - THETAANGLEMAX; 
aldThataAngla -> val - thetaAngle; 
aldThataAngla -> upfunc “ aldThetaAng laUpf unc ; 
pnl addaubact (aldThataAngla, fiaatFrama) ; 


/ ****** Phi * 

void diaplayTypainPhiAnglaO 

I 

type inPh iAng le “ pnl mkact (pnl typain); 
t ypa inPh iAngle -> x - TYPEIN_PHI_ANGLE_X; 
t ypa inPhiAngla -> y - TYPEIN~PH I_ANGLE~Y; 

PNL_ACCESS (Typain, typ a inPhl Angle, lan) - PHI_ANGLE_STRING_LENCTH; 
aprTntf (PNL ACCESS (Typain . t ypainPhiAng la , itr) . PH I ANGLE FORMAT . phiAng la) ; 
typa InPhl Angle -> upfunc ° t ypainPhiAnglaUpfunc; 
pnl addaubact (t ypainPhiAng la, fiaatFrama) ; 

) 

void di apleySldPh iAng la ( ) 

1 

a ldPhiAngla “ pnl_mkact (pnl_alidaroid) ; 
a ldPh iAngle -> x - SLD_PN I__ANGLE X; 
a ldPhiAngla -> y » SLDPHIANCLEY; 
a ldPhiAngla -> minval - PHI ANGLE_M IN; 
a ldPhiAngla -> maxval - PNI_ANGLE_MAX; 
a ldPhiAngla -> vol » phiAngla; 
a ldPhiAngla -> upfunc • a ldPhiAnglaOpf unc; 
pnl_odda ubact ( aldPhiAngla , fiaatFrama) ; 


/****************** ........a a*.... a / 

void di aplayTypainDz2 D () 

r 

typainDr2D ■ pnl_mkact (pnl typain); 
t ypa inDz2D -> x - TYPEIN DZ 2D_X; 
t ypa lnDz2D -> y - TYPEIN~DZ~2 d2t; 

PNL ACCESS (Typain, typeinDz2D, lan) - DZ 2D_STRINC_LENCTH; 
aprintf(PNL ACCESS (Typain, typainDr2D. atr) , DZ 2D FORMAT. dr2D) ; 


typeinDzZD “> upfunc « t ypainDz2DUpf u nc ; 
pnl_odd» ubact (typainDz2D. fiaatFrama) ; 


void di«pleySldDz2D () 

I 

aldDz2D - pnl_mkoct ( pnl_i 1 idaroid) ; 
aldDr2D -> x - SLD_DZ_2D_X; 
sldDz2D -> y - SLD_DZ_2D_Y; 
aldDz2D -> minval - DZ2DMIN; 
aldDz2D -> msxvol - DZ2DMAX; 
ald0z2 D -> vol - dz2D; 
aldDz2D -> upfunc “ a ldDzZDDpfunc ; 
pnl^addaubact (aldDz2D, fiaatFrama) ; 


/** * ***** owl a*********.***........*.*..* / 

void dlaplayTypa InMaveLangthOfLight O 

I 

typa InMaveLangthOfLight ■ pnl_mkoct (pnl_typain) ; 
typainNavaLengthOfLight -> X • TYPEIN_WAVE_LENCTH_OF_LICHT_X; 
typainNovaLangthOfLight -> y * TYPEIN_HAVE_LENGTH~OF_LIGHT~Y; 

PNLACCESS (Typain, t ypai nWo velengt hOfLight . lan) - HAVE_LENCTH_OF_LIGHT_STRING_LENGTH; 
aprintf (PNLACCESS (Typa in, typa InWovaLangthOf Light. atr) , NAVELENGTHOFL IGHTFORMAT, wav 
aLangt hOfLight) ; 

typeinHavaLangthOfLight -> upfunc “ t ypa inNaveLengthOf Light Upfunc, ■ 
pnl_add»ubact (t y pa in Na vaLangt hOfLight . fiaatFrama) ; 


void d 1 ap layS ldNo vaLangt hOfLight ( ) 

I 

sldHavaLangthOfLight “ pnl_mkact ( pnl slidaroid) ; 
a ldNo vaLangt hOfLight -> X “ SLD_HAVE_LENGTH OF_LIGHT_X; 
a ldNo vaLangt hOfL ight -> y = SLD_HAVE_LENGTH^Of”lIGHT~Y; 
sldHavaLangthOfLight -> minval » HAVE_LENGTH_OF_LIGHT_MIN; 
sldHavaLangthOfLight -> maxval • HAVE_LENGTH_OF_LIGHT_MAX; 

■ ldKa veLe ngt hOf L ight -> val ■ wavaLangt hOfLight ; 
sldHavaLangthOfLight -> upfunc • ■ ldHavaLengthOfLightUpfunc; 
pnl_odda ubact (sldHavaLangthOfLight, fiaatFrama) ; 


/*»•***»«»*••*»*»»****« camera •*•**•****•***••*•**•*••••****••***••/ 

void dlaplayTypa InObjactDi stance ( ) 

( 

typainOb j act D 1st once • pnl_mkact (pnl_typain) ; 

typa InObjactDi at once -> a - TYPEINOBJECTD ISTANCEX; 

typainOb j act D latanca -> y ■ TYPEI NOB JECTDISTANCEY; 

PNL_ACCESS (Typain, typainOb jact Distance , lan) - OBJECTED 1ST ANCE_STRING_LE NGT H; 

apr Intf(PNL_ACCESS (Typain, typa inOb jectDistance, atr) , OB JECTD ISTANCEFORMAT . ob jactDiata 

typainOb jactDiatanca -> upfunc ■ typeinObjeCtDlstonceUpfunc; 
pnl_odda ubact (typainOb jact Distance, fiaatFrama) ; 


void diaplaySldOb jactDi stance 0 
{ 

■ldOb jact Distance - pnl_mkact (pnl_slldarold) ; 
■ldObjact Distance -> x - SLD_OBJECT_DISTANCE_X| 
aldOb jact Distance -> y - S LD_0 B JE CT~D 1ST ARC E~Y J 
sldOb jact Distance -> minval - OBJECT DISTANCE JfIN; 
■ldObjact Distance -> max vol - OBJECT_0ISTANCE_MAX; 
■ ldObjact Distance -> vol » object Distance; 




ifis^Supportic 



a ldOb jectDiatance -> uptime - ■ ldOb jeetDi a t oncaUpfunc j 
pnl_oddaubect ( * ldOb jectDiatance . £ia itFram* ) ; 


/............a*..**....., .xpoaura ***”***'*”**•/ 

void di iplayTypeinExpoaura () 

( 

t ypa inExpoi ura “ pnl_n*act (pnl_type in) ; 
t ypa inExpoaure -> x * TYPBIN EXPOSURE X; 
t ypa inExpoi ura -> y - TYPEIn"eXPOSUR£_Y; 

PNL_ACCESS (Typain, t ypainExpoaur a , lan) - EXPOS URE_STRING_LENGTH ; 
a print f (PNL_AC CESS (Typain . typaiftExpOaU re, atr ) , EXPOSURE_FORMAT. axpoaura) ; 
t ypa InExpoaura -> up tune = typa inExpoi uraUpfunc; 
pnl addiubact (t ypa inExpoi ura. flaatFrama) ; 

I 

void dlaplaySldExpoauraO 

l 

a IdExpoaura “ pnl_mkact (pnl alidaroid) 

1 IdExpoa ura -> x = SLD_EXPOSURE_X; 
a IdExpoaura -> y = SLD~EXPOSURE_Y; 
a IdExpoaura -> minval “ EXPOSURE_MIN; 
a IdExpoaura -> maxval ■ EXPOSURE_MAX; 
a IdExpoaura -> val - axpoaura; 
a IdExpoaura -> upfunc “ a IdExpo aureUpf unc; 
pnl_addaubact ( a IdExpoaura . fiaitFroma) ; 


/aaa*aaaa***aa*a*aaaaaaa*a* knifaEdga aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/ 


fringaa - FRINGES MIN; 

J 

alaa if( tmp > FRINGES_MAX ) 

( 

fringaa - FRI NGESJiAX ; 

1 

alaa 

( 

fr ingaa “ tmp; 

I 

a print £ (P(JL_ACCESS (Typain. typainFringaa, atr) , FRINGES_FORMAT, fringaa ); 


void upArrowFrlngaaOpfunc ( Actuator* act ) 

if ( fr ingaa < FRINGE S_MAX ) | 

++fringea; 

aprintf(PNL_ACCESS (Typain. typa inFr ingaa, atr) ,FRINCES_FORMAT, fringaa) ; 
pnl_fixact (typa inFr ingaa) ; 

I 

1 

void down ArrowFringaaUpf unc ( Actuator* act ) 

I 

if ( fringaa > FRINGES_MIN ) ( 

■print f(PNL_ACCESS (Typa in. typa inFr Ingaa, atr) ,FRINCES_FORMAT. fringaa) ; 
pnl_fixact (typa inFr Inga a) ; 

1 

I 


void dlaplayUpArrowKnifeEdge () 

l 

upArrouKnlfaEdga = pnl mkact (pnl_up_arrow_button) ; 
upArrowKnifaEdga -> x - UPARRGN__KN I F E_EDCE_X ; 
upArrowKnifaEdga -> y - OPARROHJCNIFEEDGEY; 
upArrowKnifaEdga -> labal - VE RT I CAL_K N I FE_E DGE ; 
upArrowKnifaEdga -> labaltypa ” PHL_LAEEL_RIGHT ; 
upArrowKnifaEdga -> upfunc ■= upArrowKnifaEdgaUpfunc; 
pnl_addaubact (upArrowKnifaEdga, flaatFrama) ; 


void UpArrowKnifaEdgaUpfunc (Actuator* act) 

I 

iff flagKnl faEdge “ 1 flegKni feEdge ) 

1 

upArrowKnifaEdga -> labal - VERT ICAL_KNIFE_EDCE; 
knifaEdga - KNIFE_EDGE VERTICAL; 

} 

alaa 

l 

upArrowKnifaEdga -> labal - HORIZONTAL_KNIFE_EOGE; 
knifaEdga * KNIFEEOGE HORIZONTAL; 

I 

pnl_fixact (upArrowKnifaEdga) ; 


/*****»******««**.••.••»•*•• Fringaa •*****•****»**••**********•********/ 

void typainFr i nga aUpfunc ( Actuator* act ) 

{ 

float tmp “ atof <PNL_ACCESS (Typain, typainFringaa , atr) ) ; 
if( tmp < FRINCES MIN ) 

l 


void r aaat Fringe a Upfunc ( Actuator* act ) 

1 

fringaa = INFRINGES; 

aprintf (PNL_ACCESS (Typain. typainFringaa, atr) . FRINGESFORMAT. fringaa) ; 
pnl_fixact (typainFringaa) ; 


fringaTypa 

void diaplayUpAr rowFringaTypa () 

upArrowFr ingaTypa ■ pnl_mkact (pnl_up_arrow_button) ; 
upArrowFr ingaTypa -> x * UPARROM FRINGE_TYPE X; 
upArrowFr ingaTypa -> y - UFARROh“FRINCE_TYPE~Y; 
upArrowFr IngaTypa -> labal » VERTICAL_FRINGE~TYPE; 
upArrowFr IngaTypa -> lo bait ypa » PNL_LABEL_rTgHT; 
upArrowFr ingaTypa -> upfunc - upArrowFr IngeTypaUpf unc; 
pnl_oddiuboct (upArrowFr ingaTypa, flaatFrama) ; 


void upArrowFringaTypaUpfunc (Actuator* act) 

I 

if ( fringaTypa — FRINGE TYPE_INFINITE ) 

1 

upArrowFr ingaTypa -> labal = VERTICAL FRINGE TYPE; 
fringaTypa - FRINGE_TYPE_VERTICAL; 

) 

alaa lf( fringaTypa ™ FRI NGE_T YPE_VE RT ICAL ) 

upArrowFr ingaTypa -> labal = HORIZONTAL_FRINGE_TYPE; 
fringaTypa - FRINGE_TYPE_HORIZONTAL; 



alaa if < fringaTypa — FRINGE TYPE HORIZONTAL ) 

t 

upArrcwrr ingaTypa -> label •* INFINITE FRINGE TYPE; 
fr ingaTypa - FRINGE TYPE INFINITE; 

1 

pnl_f Ixact (upArrowFr ingaTypa) ; 


ifisstSupportc;;: 







/* Supporting variable* for both fiaat and £ i ait Support */ 

extern void tmagef_(f loot*. float*)} 

int ini IntegrotePoroma 0 } 
void in isyzRho ( float*, float* )f 
artern Gr id_Sur face* grid_fi*at; 
aztarn int lock_cur_ob ject 0 f 
axtarn int unlock_cur_ob Jact 0 ; 
float* xyzDato; 
float* rhoData; 
float* xyzFiaat; 
float* rhoFiaat; 

int drauljTugo_{ int *xdim. int *ydim, float *pix ); 

•stern tCrophicOb ject cur_ob ject ; 

•stern int locked; 

•stern void dump_atate () ; 

(define NDIM 5 


void displayTypeinNumberOfPointa () } 

void diaplaySldNumberOfPointa 0 ; 

void diaplayTypeinComputationalRho 0 ; 

void di aplaySldCoraputot ionalRho () ; 

void di IplayTypeinExperimentalRho 0 ; 

void diaplaySldExper imentalRho () ; 

void diaplayTypeinNondimenaiona lizedLengt h () ; 

void diaplaySldUondimena iona lizedLengt h () ; 

void diaplayTypeinWumberOfPa aaea () } 

void di aploySldNumberOfPaaaea U } 

void di aplayTypei nPa iAng le () ; 

void di ■ playS ldPa iAng le () j 
void di iplayTypeinThataAngle () ; 
void di aplaySldThet aAng 1« ( ) ; 
void di aplayTypelnPhlAngle () ; 
void di aploySldFh iAng le () ; 
void di *playTypeinDr2D 0 ; 
void di apleySldDz2D () ; 

void diaployTypeinHavoLengthOfLight () ; 
void diaploySldWo veLengthOfLight () f 
void diapleyTypeinObjectDiatance () ; 
void diaploySldOb ject Diatance () ; 
void di«playTypeinExpoaure() ; 
void di apla ySldEspoaure (} ; 
void di aplayUpAr r owKn ifeEdge () ; 
void di aplayUpAr r ouFr ingeType 0 ; 

Actuator* fiaatFrame; 

(define FISSTFRAMEX 12.2 

(define FISSTFRAMEY -18.05 

(define OFFSET_Y_SLD_TYPEIN 0.5 


Actuator* but Integrate; 

(define BUT INT ECRATEL ABEL ’ Integrate 

(define BUT INTECRATEX 3.0 

(define BUT INTEGRATE! 20.2 

void butlntegrateOpfunc ( Actuator* act ); 


fisstSuppoit.h 

Actuator* butShodowGraph; 

(define B UTS HADOWGRAPH LABEL - ShodowGraph " 

(define BUTSRADONGRAPHX 3.0 

(define BUTSHAOONGRAPHY 6.0 

void butShadowCrophUpfunct Actuator* act ); 

Actuator* butSchlieren; 

(define BUTSCHL1ERENLABEL * Schlieren " 

(define BUTSCHLIERENX 3.0 

(define BUTSCHLIERENY 3.0 

void butSchlieranUpfnnc ( Actuator* act ); 

/*•*“** *•****'*■■•* npta •••••••••***•*••! 



(define BUT_NUMBER_OF_POINTS_LABEL 
(define BUT_NUMBER_OF_POINTS_X 
(define BUT_NUMBER_OF_POINTS_Y 

(define TYPE IN_NUMBER_OF_POINTS_X 
(define TYPEIN_NUMBER_OF_POINTS_Y 


B UT _N0MBE R_0F P0 1 NTS_X - 0.3 

BUT~NUMBER_OF_POINTS_Y + OF FSETYSLDT YPEIN 


(define SLD_NUMBER_OF_POINTS_X BUT_WJMBER_OF_POINTS_X 

(define SLD_NUMBER_OF - POINTS_Y BUT~NUMBER”oF_POINTS_Y + OFFSETYSLDTYPEIN 


(define INI_NUMBER_OF_POINTS 20000 

(define NUMBER_OF_POINTS_MIN 10000 

(define NUMBER_OF - POINTS_MAX 600000 


(define NUMBER__QF POINTS FORMAT “I9d* 

(define NUKBER_OF~POIHTS~STRING_LENCTH 9 


void butNumberOfPointaUpfunc ( Actuator* act ); 
void typeinNumberOfPolntaUpfunc ( Actuotor* act ); 
void eldNumberOfPointaUpfunc ( Actuotor* act ); 


Actuator* but Number Of Po int • } 
Actuator* typeinNuraberOfPo int a/ 
Actuotor* aldNumberOfPointi; 


int numberOf Point e - INI_NUMBER_OF_POINTS; 

ahort int f lagNumberOfPointa - TRUE; 

rho0 • * a a •***•*• •* ****** ***^ 


(define BUT_CCMPUTATIONAL_RHO_LABEL 
(define BOTCOKFUTATIONAl'rHO^X 
(define B UT^CCKP UT AT I ON AL~ RH0_Y 


“Computational rho“ 
0.0 
18.0 


(define TYPE IN_COMPUTATIONAL_RHO_X 
(define T YP E I N_C CH? UT AT I ON AL_RHO~Y 


BUT_COMPUTATIONAL_RHO_X +1.5 
BDTjrOMPUTATIONALRHOJf + OFFSETYSLDT YPEIN 


(define SLD_COMPUTATIONAL_RHO_X 
(define SLD_COMPUTATIONAL_RHO Jf 


BUT_C0MPOTATI0NA1_RR0JC +1.5 

BUT_COMPUTATIONALJUiOJf + OFFSET_Y_SLD_T YPEIN 


(define INI_C0MPUTATIONAL RHO 1.0 

(define COMPUTAT ION AL_RH0~MIN 0.000001 

(define COMPUTATIONAL - RHO~ MAX 100.0 


Actuator* butlnterfazogram; 

(define BUTINTERFEROC RAM LABEL “ Inter for ogrom' 

(define BUTINTERFEROCRAMX 3.0 

(define BUTINTERFEROCRAMY 10.0 

void butlnterferogromUpfonc ( Actuator* act )} 


(define COMPUTAT IONAL_RHO_FORKAT "%7.4f* 

(define COMPUTAT IONAL_RHO_STRING_LENGTH 7 

void butComputat ionalRhoUpfunc ( Actuotor* act ); 
void t ype inCangiutot IonalRhoUpfunc ( Actuator* act ); 
void a ldComput at IonalRhoUpfunc ( Actuotor* act ); 



Actuator* butComputat ionalRho; 

Actuator* t ype inConyutot iono lRho; 

Actuator* a ldComputat ionalRho; 

float computet IonalRho - inicomputationalrhO; 

ahort int flogComputat ionalRho - TRUE; 


fisstSuppoit.h 

Act uot or* typeinNondimenaionalizedLength ; 
Actuator* a 1 dNon dimen a iono lir edLe ngt h ; 

float nondimenaionalizedLength = 

ahort int flogNondimana ionali cedLength = 



IN I_NONDIMENS IONALI ZED_LENCTH; 
TRUE; 


/• 


:hoinf 


(define BUT_EXPERIKENTAL_RHO_LABEL 
(define BUT_EXPERIMENTAL_RHO_X 
(define BUTEXPERIKENTALRHOJf 


“Experimental rho“ 

5.0 

18.0 


(define TYPEIN_EXPERIMENTAL_RHO_X BUT_EXPERIMENTAL_RHO_X +1.5 

(define TYPEIN_EXFERIMENTAL_RHO_Y BUT - EXPERIMENTAL_RHOJf + OFFSET^ Y_S L D_T YPEIN 


(define SLD_EXPERIMENTAL_RHO_X BUT EXPERIMENTAL RHO X + 1.5 

(define SLD_EXPERIMENTAL_RHO_Y B UT~E XP CRIME NT AL - RHO - Y + OFFSET_ Y_S LOT YPEIN 


(define INI EXPERIMENTAL_RHO 1.0 

(define EXPER1MENTAL_RH0_MIN 0.000001 

(define EXPERIMENTAL_RHO_MAX 100.0 


(define EXPERIKENTAL_RHO_FORMAT ”%7.4f* 

(define EXPERIMENTAL_RHO_STRINC_LENCTH 7 


void butEsper imentolRhoUpfunc ( Actuotor* act )} 
void typeinExperimentalRhoUpfuncl Actuator* act )r 
void aldExper imentelRhoUpfunc ( Actuotor* act )} 


Actuator* b ut Expo r imentalRho ; 

Actuotor* t ypeinExper imentel Rho r 
Actuotor* a IdExper imento lRho ; 

float exper imantalRho - INIEXPERLMENTALRHO; 

ahort lot f lagEsperimentalRho - TRUE; 


(define BUT_NUMBER_OF_P ASSES LABEL 
(define BUT_NUMBER_OF_PASSES - X 
•define BCT_NUMBER_OF_PASSES_Y 

•define TYPE IN_NUMBERJJF_PASSES_X 
•define TYPE IN_NUMBER — OF~ PASSES_Y 

•define SLD_NUMBER OF PASSES X 
(define SLD_NUMBER_0F2PASSESJf 

•define INI_NUMBER OF PASSES 
(define NUMBEROF_PASSES_MIN 
(define NUMBER~OF - PASSESJtAX 

(define NUMBER_OF PASSES FORMAT 
(define NUMB ER__OF~PASSE S~STRI NG_LENCTH 


3.3 

12.0 

BUT_NUMBER_OF_PASSES_X +0.7 
BUT_NUMBER - OF_PASSES_Y + OFFSET_Y_SLO_TYPEIN 

BDT_NUMBER_OF_PASSES_X + 0.7 

BUT_NUKBER_OF_PASSES_Y + OFFSET_Y_SLD_T YPEIN 

2.0 

1.0 

10000.0 

"»7.4f“ 

7 


void butNumberOfPoaaeiUpfunc ( Actuator* oct )l 
void typeinNumbarOfPalaeaUpfunc( Actuator* oct ); 
void aldNumberOfPa**e*Upfunc( Actuator* oct ); 


Actuotor* butNumbezOfPoaaea; 
Actuator* typeinNumberOfPoaaea; 
Actuator* aldNumberOfPaaaea; 


float number Of Pa a ae a 
ahort int f lagNumberOfPai 


t' 


'/ 


(defina BUTNOND IMENS IONALIZED_LENCTK_LABEL “Scaling" 

(define BUT_NOND IMENS IONALI ZED_LENGTH~X 0.85 

(define BUTNONDIMENSIONALIZEDLENCTH - * 14.0 


•define TYPE IN_N0ND IMENS IONALI ZEDLENGTHX BUT_NONDIMENSIONALIZED_LENGTH_X 
(define TYPE IN_N0ND IMENS IONALI ZEDLENGTHY BUT_NONDIMENSIONALIZED_LENGTH_Y 
_Y_S LDTYPE IN 


(define BUT_PSI_ANGLE_LABEL 
(define BUT_PSI ANGLE_X 
(define BUT_PSI_ANGLE Y 


0.15 

OFFSET 


(define TYPEIN PSI ANCLE X 
•define TYPE1NJPS1 ~AKGLE”y 

(define SLD_PSI_ANCLEJC 
(define SLD_PSI_ANCLe“y 


“pai“ 

1.0 

16.0 

BUT_PSI_ANCLE_X 

BUT - PSI - ANGLE~Y + OFFSETYSLDTYPEIN 
B UT_PSI_ANCLE_X 

BUT_PSI_ANGLE~Y + OFFSET_Y_SLD_TYPE IN 


(define SLD_NONDIMENS IONALIZEO_LENCTH_X 
(define SLD_NONDIMENSIONALIZED_LENCTH~Y 
Y SLD_TYPE1N 


BUT NONDIMENSIONALIZED LENGTH X + 0.15 
BUT - NONDIMENSIONALIZED - LENGTH - Y + OFFSET 


(define INI_PSI ANGLE 
(define PSI_ANGLE_MIN 
(define PSI_ANGLE MAX 


0.0 


-360.0 

360.0 


(define INI_NONDIMENSIONALIZED_LENGTH 1.0 

(define NONDIMENS IONALIZED_LENGTH_MIN 0.000001 

(define NOND IMENS IONALIZED_LENGTH_MAX 1000.0 

(define NONDIMENSIONALIZED_LENGTH_FORMAT “87 .4f“ 

•define NONDIMENSIONALIZED - LENGTH_STRING_LENGTH 7 


(define PSIANGLEFORMAT “»7.2f” 

| (define PSI_ANGLE_STRINC_LENCTH 7 

| void butPaiAngleUpfunc ( Actuator* act ); 
void t ype inPaiAngleUpfu nc ( Actuator* act ); 
I void sldPaiAngleUpfunct Actuator* act )( 


void butNondimena iona liredLengt hup func ( Actuator* oct )} 
void typeinNondimenaionaliredLengt hUpfunc ( Actuator* oct ); 
void a 1 dNondimana ionaliredLengt hUpfunc < Actuator* act ); 


■Actuator* butPai Angle; 
lActuotor* t ype inPa i Angle; 
jActuotor* aldPiiAngle; 


Actuotor* b ut Nond imen a ionali zed Length; 


float pa iAng le - INI_PSI_ANGLE; 


OgigNAL PAGE IS 
OF POOR QUALITY 



•host int flagPsiAngle * 




/* 


that! 


fisstSuppoit.h; 


/ 


(define 

•define 

(define 


BUT_DZ 2 D_L ABEL 
BUT_DZ~2 D_X 
BOTDZ 2D_Y 


" Z-Dept h ’ 
3.9 
U. 0 


(define BUT_TH ETA_ANC LE_LAB E L "theta" 

(define BUT_TH ETA_ANC LE_X 4.0 

(define B0T_THETA_ANGLE_Y 16.0 


idafina TYPEIN THETAANGLE X BUT THETA ANGLEX 

idafina T YP E I NJT H ETAANG LEY BOT_THETA_ANCLE_Y + OFF SET_Y_S LD_T YP E IS 


idafina SLDTHETAANGLEX B0T_THETA_ANGLE_X 

idafina SLD_THETA_ANCLE_Y BUT_THETA_ANGLE_Y + OFFSET _Y_SLD_TYPEIN 


Idafina TYPEIN DZ_2D X BUT DZ 20_X + 0.15 

idafina TYPEIKJ>Z_2DJf BWT~DZ~20_Y + OFFSET_Y_SLD_T YPE IN 


idafina SLDJJZ 2D_X BUT DZ 2D_X + 0.15 

idafina SLDJ)Z~2D_¥ BUT~Dz”2D_Y + OFFS ET_Y_SL D_T YP E I N 


idafina INI DZ_2D 1.0 

idafina DZ 2D MIN 0.000001 

idafina 0Z_2D_MAX 10000.0 


•dafina INI_THETA_ANGLE 90.0 

idafina THETA_ANGLE_HIN -360.0 

idafina THE T A_ANG LE_KAX 360.0 

idafina THETA_ANGLE_FORMAT “I7.2f" 


idafina THETA_ANGLE_STRING_LENCTH 7 

void butThetaAngleOpf unc ( Actuator* act ); 
void typainThataAnglaUpfunc ( Actuator* act ); 
void sldThetaAngleUpfunc ( Actuator* act ); 


idafina DZ_2D_FORMA? "»7.3f" 

idafina DZ_2 D_ST RINC_LE NGT H 7 

void butDz2DUpfttnc( Actuator* act ); 
void t ypa inDr2DUpfunc ( Actuator* act ); 
void . 1 dD r2DUp f u nc ( Actuator* act ) ; 

Actuator* butDz2D; 

Actuotor* typainDzZD; 

Actuotor* sldDz20; 



Actuotor* butThetaAngle; 

Actuotor* t ypa inT Kata Angle; 

Actuotor* s ldThetaAngle; 

float t hetnAng la - INI_THETA_ANGLE; 

short int f laglhataAngla - TRUE; 

* * phi ********* *•*•••***•••/ 


idafina BU7_PHI_ANCLE_LABEL "phi" 

idafina BUT_PHI_ANGLE_X 7.0 

idafina BUTPKIANGLEJf 16.0 


Idafina TYPEIN_PHI ANGLE X BOTPH IANGLEX 

Idafina T YPEIN__PH I~ANGLE~¥ BUT PH I ANCLE Y + OFFSET_Y_SLD_?YPEIN 


Idafina SLD_PH I_ANGLE _X BUT_PH I_ANCLE_X 

♦dafina SLD_PH I_ANGLE_Y BUT_PH I_ANCLE_Y + OFFSET _Y_SLDJTYPEIN 


Idafina INI_PHI_ANGLE 0.0 

idafina PHI_ANGLE_MIN -360.0 

Idafina PHI_ANGLE JiAX 360.0 

idafina PKI_ANCLS_FORMAT "»7.2f" 


Idafina PHI_ANGLE”sTRING_LENGTH 7 


void butPhiAnglaOpfunc ( Actuator* act ) ; 
void typainPhiAnglaUpfunc ( Actuator* act >; 
void sldPhlAnglaOpfunc ( Actuotor* act ); 


float d*2D * INI_DZ_2D; 

short int flagDz2D » TRUE; 


nphi 


Idafina TYPEIN_NUMBER_OF_PLANES_LABEL "Rotations" 

Idafina TYPEINJiQWBER^OFPLANESX 7.0 

Idafina TYPEIN_NUMBER_OF_PLANES_Y 14.5 

Idafina NUMBER_OF_PLANES_FORMAT "%7d" 

Idafina NUMBER_OF_PLANES_STRINC_LENGTH 7 

Idafina OFFSET JT YPE I N_ARROH “ 0.65 


Idafina UPARROW_NUMBER_OF_PLANES_X TYPEIN_NUMBER_OF_PLANES_X 

Idafina UPARR0W_NUMBEROF_PLA!IE5_Y TYPEIN_NUMBER_OF_PLANES_Y + OFFSET_TYPEIN_ARROW 


idafina DOWNARRDH_NUMBER_OF_PLANES_X TYPEIN_NUMBER_OF_PLANES_X + 1.305 

Idafina DOWNARROWNUMBEROFPLANESY TYPEIN_NUMBER_OF_PLANES_Y + OFFSET? YPE I N_AR ROW 


Idafina RES E?_NUMBER_OF_P LANE S_X TYPBIN_NUMBER OF PLANESX +0.65 

Idafina RESET_NUMBERJ>F_PLANES_Y TYPEIN_NUMBEr“of“pLANES_Y + OFFSET_TY PE I N_ARROW 


Idafina INI_NUMBER OF_P LANES 1 

Idafina NUMBER OF_P LANES MIN 1 

Idafina N tJMB ER~OF_P LANE S~ MAX 10000 


void typainNumbarOfPlanasOpfunc { Actuator* act ); 
void upArrowNumberOfPlanesUpfuncf Actuator* act ); 
void downArrouNumberOfPlanesUpfunct Actuator* act ); 
void r e set Number Of Planes Up fun c ( Actuator* act ); 


Actuator* butPhlAnglo; 

Actuator* typalnPhlAngla; 

Actuator* sldPhiAngla; 

f loot phiAngla = INI_PH IJVNCLE ; 

short int f lagPhiAngla = TRUE; 




Actuator* typainNumbarOfPlanas; 

Actuator* upArrowNumberOfPlanes; 

Actuator* do wnArrowNumberOf Plane* ; 

Actuator* zasetNumfcerOf Plane* ; 

j int numbarOfPlones - INI_NUMBER_OF_PLANES; 

'short int f lagNumbarOfP lanss - TRUE; 

\* * * * 



fisstSuppoit.h 


Idafina BUT NAVE LENGTH_QF_LICHT_LABEL " Wove length" 
Idafina BUT_HAVE_LENGTK_OF_L IGH?~X 2.0 

Idafina BUT JKAVE_LENGTH~OFJt WHTJf 6.9 


Idafina BUT_EXPOSURE_LABEL 
Idafina BUT_EXPOSURE_X 
Idafina BUT_EXPOSURE_Y 


Idafina TYPEI N _KAVE_L ENGT H_0 F_L IGH T_X 
Idafina TYPEI NJtAVB^t ENGT H~OF _L IGH T_Y 


BOT_WAVE_LENCTK_OF_LICHT_X 
B UT^WAVE^LE NOTH >~L ICHT~Y 


0.3 

OFF SET_Y_S L0_TYP E I N 


Idafina TYPE 1N_EXP0SURE_X 
Idafina TYPEIN_EXPOSURE_Y 


BUT_EXPOSURE_X +0.3 
BUT_EXPOSURE_Y + OFFSETYSLDTYPEIN 


Idafina SLD_KAVE_LENGTH_OF_L IGH T_X 
Idafina SLD_WAVE_LENGTH_OF_L IGH T_Y 


BUT_HAVE_LENGTH_OF_LIGH?_X 

BUT_WAVE_LENGTH_OF_LIGHT_Y 


0.6 

OFFSETYSLDTYPEIN 


Idafina SLD_EXPOSURE_X 
Idafina SLDEXPOSUREY 


BUT_EXPOSURE_X +0.3 

BOT_EXPOSURE_Y + OFFS ET_ Y_S LD_T YPE I N 


Idafina INI_HAVE_LENGTH_OF_LIGHT 6.38E-07 

Idafina WAVE_LENGTH_OF_L ICHT_MIN 1.0E-15 

Idafina WAVE_LENCTH_OF_LICHT_MAX 1.0E-03 


Idafina INI_EXPOSURE 
Idafina EXPOSURE_MIN 
♦define EXPOSURE_MAX 


1.0 

0.000001 

100000.0 


Idafina WAVE_LENGTH_OF_L ICHT_FORMAT **6.3a" 

Idafina HAVE_LENGTH_OF_LICHT_STRING_LENGTH 9 


Idafina E XPOSURE_FORKAT "*7.2£" 

Idafina EXPOSUREjSTRING_LENGTH 7 


void butWovaLangthOfLightOpfunc ( Actuator* act ); 
void typeinKaveLengthOfLightOpfunc ( Actuator* act l; 
void sldKoveLengthOfLightUpfunc ( Actuator* act ); 


void butEsposuratJpfunc ( Actuator* act ); 
void t ypa inExpos ura Upf u nc ( Actuotor* act )f 
void sldExposuzeOpfunc ( Actuotor* act ); 


Actuator* butHovaLangthOfLight; 
Actuator* typainHavaLangthOf Light ; 
Actuator* s ldHavaLangthO f Light ; 


Actuator* butEsposure; 
Actuator* typeinEsposure; 
Actuator* sldEsposura; 


float waveLengthOf Light - INI_MAVE_LENCTH_OF_LICHT; 

short int f lagWavaLangthOfLlght ■ TEUJE; 


float exposure - INIEXPOSORE; 

short int flagExposure “ TRUE; 


extern void fringas_( float * cons); 

camera »*»**•»********•*•»*•*••**•••••*«**••/ 


♦define BUT OBJECT_DISTANCE_LABEL 
(define BUT~OBJECT DISTANCE~X 
•define BUT - OBJECT~DISTANCe“y 


"Object Distance" 

2.7 

3.9 


(define TYPEIN OBJECT_D I STANCE X BUT_OBJECT_DISTANCE_X + 1.3 

(define TYPEIN~OBJECT_DISTANCE~Y BUT_OBUECT_DISTANCe”y + OFFSET Jf_SLD_TYPEIN 


/*** surface *< 

•define BUT_SURFACE_I JK_LABEL 
♦define BUT~SURFACE_I JK_X 
♦define BUT_SURFACE_IJK_Y 

♦define BUT RESET SURFACE_IJK LABEL 
(define BUT _ RESET~SURFACE IJK - X 
Idafina B UT~ RESET~S URF ACE~ I JK~ Y 


/ 

"Surface" 

4.5 

11.0 

"Reset" 

3.0 

11.0 


idafina SLD_OBJBCT_DISTANCE_X 
♦dafina SLD_OB JECT_D I STANCE” Y 


BUT OB JECT_D 1ST ANC E_X + 1.3 void butSurfocelJKUpfuncO; 

BUT”oBJECT_DISTANCE_Y + OFFSET_Y_SL D__T YPE I N void but Reset Sur focalJKUpfunc 0 t 


Idafina INI OBJECT DISTANCE 20.0 

idafina OBJECT_DISTANCE_MIN 0.000001 

Idafina OBJECTED I STAN CE_MAX 100000.0 

Idafina OBJECT_DISTANCE_FORMAT "*7.3f” 

Idafina OBJECT_DISTANCE_STRING_LENGTH 7 

extern void shodowg_ ( float* ob jectDist onca) ; 

void butObjactDlstance0pfunc< Actuator* oct ); 
void typainObjactOistoncaUpfunc { Actuator* act ); 
void s ldOb ject Dis tanceUp func ( Actuator* act ); 

Actuator* butObjectDi stance; 

Actuator* t ypa inObjectDi stance ; 

Actuator* s ldObjactDi stance; 


Actuator* butSurfacalJK; 
Actuator* but Reset Sur focal JK; 

int sur fa cel JK - 0; 


knife 


♦define UPARRDWKNIFEEDCEX 

♦ define UPARROW_KNIFE_EDGE_Y 

♦define KNIFE_EDGE_HORI ZONTAL 
•define KNIFE_EDGE_VERTICAL 
(define I N I_KN I F E_E DGE 

• define VERT ICAL_KN IFEEDGE 
(define HORIZON! AL^KN I F E_E DGE 


2.0 

2.5 

'h' 

K N I F E_ED CE_VE RT I CAL 
" Vertical Knife Edge" 

" Horizontal Knife Edge" 


/ 


float objectDi stance - I NI_OBJECT_D I STANCE; 

short int flag Ob j act Distance « TRUE; 


void upArrowKnifeEdgeUpfunc { Actuotor* act ); 
extern void schl ier en_ (char * knifaEdga); 


/’ 


■trch 


Actuator* upArrOwKn ifaEdga ; 





char knifaEdga • INIJOJIFE_EDCE; 

short int f lagKni faEdga * TRUE; 


/' 


fdsf ins 
fdaf in* 
Idsfins 
fdsf in* 
fdsf Ins 


TYPEIN FRINGESLABEL 
TYPEIN_FRINGES_X 
TYPEIN~FRINGES_Y 
FRINGES FORMAT 
FRINGES“STRING_LENGTH 


6.0 9 


“*7d" 


fdsf ins UP ARROW FRINGESX TYPEINFRINGESJC 

fdsf Ins UPARROW~FRINCES_Y TYPE IN_FRI NGES_Y + OFFSET_TYPEIN_ARROW 


fdsf ins DOKNARROW FRINGESX TYP E IN_FRI NGES X + 1.305 

fdsf ins DOWNARROW"FRINGES_Y TYP EIN_FRI NGES ~Y + OFFSET__T YPE I N_ARROW 


fdsf ins RESET FRINGES X 
fdsf ins RESBT~FRINGESJf 


TYPEIN_FRINGES_X +0.65 
T YPE IN_FRI NGES_Y + OFFSET_TYPEIN_ARROW 


fdsf ins INI FRINGES 1 

fdsf ins FRINCESMIN 1 

fdsf ins FRINCESJUVX 10000 

void typsinFringssUpfunc ( Actuator* act ); 
void upArrowfz ingoaUpfunc ( Actuator* act ); 
void downArrowFrlngssOpfunc ( Actuator* act ); 
void rssstFr lngsaUpfunc ( Actuator* act ); 


Actuator* typsinFringss; 

Actuator* upArrovFringos ; 

Actuator* down ArrowFr ingss; 

Actuator* rsistFr ingss; 

int fr ingss = INI_FRINGES; 

short int f lagFringss «• TRUE; 


fis^Suppprt.h 

int ksubl [10] (10); 
int ksubZ (10) (10); 
int Is ub 1(10) (10); 
int lsub2(10) (10); 
| data_; 


struct 

int jdira(lO); 
int kdim(lO); 
int ldim(10) ; 
) sub jkl_; 



int ngrid; 

float rhoO; 
float rhoinf; 
float al; 
float pass; 
float psi; 
float theta; 
float phi; 
float dz; 
int nphi; 
float gstrch; 
float strch; 
char ctyps; 
char mu Is in; 

) lntsg_; 


float camsra; 
| shadow_; 


/”**'*' *•«**«*****• typs 

fdsf ins UP ARROW_F RING E_T YPE_X 
fdsf ins UPARROK_FRINCE~TYPE”y 

Idsfins INI FRINGE_TYPE 
fdsf ins FRINGE_TYPE_HORI ZONTAL 
fdsf ins FRINGE_T YPE_VERT I CAL 
fdsf ins FRINGEJTYPEINFINITE 
Idsfins INFINITE_FRINGE_TYPE 
Idsfins VERTICAl“fRINGE~TYPE 
Idsfins HORIZON7AL_FRINGE_TYPE 




2.0 

9.5 

■h* 

INI_FRINGE_TYFE 


“ Infinits Frings* 

* Finits Vortical Frings* 

" Finits Horizontal Frings* 


void upArrowFringsTypsUpfunc ( Actuator* act ); 


Actuator* upArrouFringsTyps; 


I 

float awl; 
float com; 
float vsrt; 
float horic; 
char typs; 

I intarf_; 

( 

int ixmax; 
int lymax; 
int mod(600001); 
float p(4) (600001); 


char fringsTyps * INI_FRINGE_TYPE; 


Idsfins SURF ACE_SETS 10 


struct 

int niub(10); 
int jsublllO] (10); 
int jiub2(10] (10); 


int 

int 

int 

int 

int 


imlnsst (SURFACE_SETS) ; 
imazsst ( S URF ACE_SET S ) ; 
jminist (SURFACE_SETS) ; 
jmaxist (SURFACE~SETS) ; 




int kminsst [SURFACE SETS); 
int kmaxsst|SURFACE~SETS); 
I sur£sst_; 


fisstSuppoit.h 



float *xyzData; 
float *rhoDato; 


unsignsd long int 
unaignsd long int 
umignsd long int 
unaignsd long int 

int cal lint sgr at a 


IjkSizs - 0; 
nswijkSiza - 0; 
xyzBytsSirs ■ 0; 
rhoBytsSizs = 0; 

- FALSE; 




Idsfins STR1NG_12_0 (*\0’.'\0’ . '\0’,'\0' , ’ \0’ , ’ \0» . ' \0* . * \0' , ' \0* . *\0'.’ \0* ,'\0’ } 
Idsfins MAX_NUHBER_CHAR 12 

Idsfins INI~GRID_fTlENAME STRING_12_0 

char gr idFitsnems (MAX_NUK3ER_CHARJ - I NI_GRI0_F I LENAME ; /* gnams */ 

Idsfins INI Q FILENAME STRING 12_0 ~ 

char qFilsnarm [MAX_NUMBER_CHAR] - INI_Q_F ILENAME ; /* qnama */ 

Idsfins INIJJRIDTYPE 3 

char gridTyps ** INI_GRID_TYPE; /* ctyps */ 

Idsfins INI_MULTIPLE_CRIDS ' a’ 

char multipTsGrids = INI_KULTIPLE_CRIDS; /* mu lain */ 

/■***“ / 

Idsfins INI_IMAGE 'i' 

char gsnaratslraga - INI IMAGE; /* imnga */ 

/ *****.**********. * * / 

int imagsDraun « FALSE; 
int imaga_gid - NULL; 
char* imagajtitls; 

char* Imega shadowgraph “ 'Shadowgraph*; 

char* imags_achlisrsn «■ “Schlisran"; 

char* imags^lntsrfarogram “ "Intarfsrogram"; 

/ * / 







int main ( int argc, choc* orgv{) ) 

i 

/• act initial panel nop t ime */ 
pnl_naptlme ■ HZ / 5; 

/* 

* Initio lie* tho module: 

* rood argument* Eton tha hub and aatobliah a connection than 

* build tha panala 

«/ 


J 

/- 


init_module( ezgc, argv ); 

/* Initializa tha ponala */ 

lnit_panala( get_raodule_panel_x() • get_module_panel_y () ); 

/* Tall the hub wa aza dona initializing */ 
aand_hub_coiT¥nand ( ”DONE_INITIALIZING" > ; 

/* Entaz main event loop */ 
while ( get_quit_module 0 **■ 0 ) 

I 

if ( pnl dopanel)) II gat_looping () ) 

I 

if ( 1 get_no_zedzaw<) ) 

I 

updato_looping 0 s 
update_minmax <) ; 

I 

1 

elaa if { call^updote rainmox after drawing ) 

I 

wait juntil_obj act _ia_redrown () ; 
redraw object whan unlocked >0; 
updote_ looping () ; 
update_minmax() ; 

redraw object when_an locked ” 1 ; 
enll_update_minmax_after_drewinq = 0; 

I 

alaa pnl_naptima ■* HZ / 5; /* zeaat panel nap time */ 
proc«u_hub cothbucIO j 
/* procaaa tha next contnand */ 
command buffer procaaa ( MODULE ) j 


/* exit and clean up •/ 

exit_module 0 ; 
return 0; 


END OF main 


•mairtt 


/* 


'/ 


EHD 0F FILE maii 



>/ 


wmmm 


/*++ panela .c 


: paheis.c: 


File contain a the functiona uaad for creating tha ponala. 


extern void Error () 

extern void Naming 0 

Panel Library functiona 


iiiiSiiiPli&i 


I/O: 

Nona. 

STANDARDS VIOLATIONS: 
Nona . 

AUTHORS: 


Todd Pleaael 

NASA Amaa Reaaarch Canter 
Starling Software 


* REVISION HISTORY: 


6/*9 

7/91 prototyped functiona 


Functiona declared in thia file : 


tincluda 
f include 
(include 
tincluda 
(include 
(include 
(include 
(include 
(include 
(inolude 
(include 
(include 
(include 
(include 
(include 
(include 
(include 
(include 


<atdio.h> 
<atdlib.h> 

<atring . h> 

<ct ype . h> / 1 

<moth.h> / i 

<fld_pan.h> /< 

<pnnel_utila.h> /' 
<faat_cmap .h> /' 

<Ob ject . h> /' 

<gr id_a ur face .h>/’ 
<faat_error .h> /' 

<faat_merr»ry . h> /’ 
<fld_liat.h> /■ 
<get_doto.h> /' 
<faat_cmap .h> /' 

<Module.h> /' 

<ViewI.h> /> 

"funca.h” /' 


— INCLUDES 

/* for NULL etc. */ 

/* for atoi 0 »/ 

/* for atring atuff */ 

/* for iadigit!) etc. •/ 

/* for otof II */ 

/* for C RI D_SC ALAR_VE CTOR_T Y PEOUT */ 

for typadefa and F LOAT_STRING_FORMAT »/ 
for init foat emop (I */ 

for OBJEC7_NAM£_LENCTH, etc. •/ 

for Grid Surface typedef •/ 

for ERROR!) macro •/ 

for DDIM3 () and DDIM4 0 mocroa •/ 

for SCALAR. NUM_VARS etc •/ 

for req_*() •/ 

for MAX_SCMAPS 4 colormop functiona •/ 
for aezipting atuff •/ 

for locking /unlocking •/ 

for function deelaratlona •/ 


• FORWARD DECLARATIONS OF PRIVATE FUNCTIONS - 


void init jpaneleO 

Panel* moin_ponel I) ; 
int get_looping {) ; 

Support functiona called by the above panel routlnea: 
External Funtiona called by functiona within thia file : 




extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 

extern 


extern 

extern 




float 

float 

int 

int 

int 

Int 

int 

int 

int 

int 

void 

void 

void 

int 

void 

void 

void 

float 

int 

int 

int 

int 

void 


Norm!) 

Denorm! ) 

view_*tast_write_lock !) 
view_end_write_unlock 0 
view_*ingle_bu ffer {) 
view_aet_drew_mode 0 
■hm_get_local_oddrea» () 
ahm doatroy local addreae!) 
init faat_cmap() 
module menu!) 
dc«w_pa letter () 
color_panel 0 
mork_monu ( I 
cloae_parent_panel 0 
clear_typeout ( I 
aet aelection num() 
fix_color_panel () 
aet_typein_lval () 
aet_typein_fval () 
get__typein_fval 0 
get data_mlnmax 0 
get data_liat_Riinmax (I 
print field node_lnfo (I ; 

■ at fid data aelection!) 
update_fld_data_panel () 
fld_doto_penel () 


Fgl 

Fgl 

libviewl 

libviewl 

libviewl 

libviewl 

libviewl 

libviewl 

libemap 

libpanu 

libpanu 

libpanu 

libpanu 

libpanu 

libponu 

libf lddata 

llbflddota 

libfldpen 

libfldpan 

libfldpan 

libfldpan 


atatic tCraphicObject make_new_ob ject ( char* name ); 

atatlc Cr id_Surface* lock_ob ject ( tCraphicObject object ); 

int lock_cur_object ( void”); 

int unlock_cur_object ! void ); 

atatic int ine_lock_eount ( void ); 

atatic int get_object_id< chor* object_naroe ) ; 

atatic tCraphicObject ettech_ob ject ( int object_id ) ; 

atatic void data eh_cur_ob ject ( void ); 

atatic void de let e_an_ob ject ! chor* acript^command ); 

atatic void deallocate_ob ject_det a ( tGraphicOb ject object ); 

atatic void copy_color( int attribute I; 
atatic void copy_colora( void ); 
atatic void update colora ( void ); 
atatic void aet_dafault colora! void ); 

atatic Panel* moin_penel( char* title, Int win x, int win_y ); 
atatic Panel* minmax_panel ( char* title, int win_x, int win_y ) ; 

atatic Panel* conto'ur_panel ( char* title, int win x, int win_y ); 
atatic void aet_contour legend! char* at r ); 


atatic 
atatic 
at at 1c 

■ tat ic 

■ tat ic 
atatic 
atatic 
atatic 
■tat ic 
atatic 


void file_io_func ( chor* file name, int mode ); 
void panela_func( int group, int item )/ 
void attr ibutea_func ( int group, int item ); 
void aet_attributea_func ( char* acript conmand ); 
void type_func{ int group, int item ); 
void aet_type_func ( char* acript ^command ); 
void rander_func( int group, int item ) ; 
void aet_render_func ( chor* acript_conxnond }; 
void option»_func ( int group, int item ); 
void eat_opt iona^func ( char* acript command ); 


atatic void dump_»tote( void ); 



panels.c: 




static void reset_state( int reset_ectuetorfl ); 

static void select_ob Ject (char* acript_comnond ) ; 
static void new_object( char* acrlpt_coninand ); 
static void copy ob joct ( char* scr ipt_c<xm»nd ); 
static void update_ob)ects ( Actuator* a ); 


st at ic 
stat ic 
st at ic 
stat ic 
static 
stat ic 
stat ic 
stat ic 
stat ic 
stat ic 
stat ic 
stat ic 
stat ic 


void surfoce_buttons_fnnc ( int row, int col, int stat# ); 
void set_surfoce buttons_fanc ( char* script_conmand ) i 
void slider_buttons_£unc ( int row, int col, int state ); 
void set_slider_buttons_func ( char* sctipt_contnand ); 
void loop_buttons_fone ( int row, int col, int state ); 
void set_loop_buttona_£unc ( char* seript_command ) , 
void xone_func ( int nes_tom ) ; 
void set_*one_func ( char* script_conr»nd )> 
void toggle_drow_£une ( char* script_coamond ); 
void i jk_renges_func( int dir, float range* (5) ); 
void set_i jk_ronges_£unc ( chor* script_cowmand ) ; 
void direction^func ( int dir ); 

void set_direction_func ( char* scr ipt_commond ); 
void boundary_sur Caces_func ( int select ions ( 3) [31 ); 
void set_boundary_sur faces_func ( char* *cript_conmnnd ); 


static void reset_i jk__renges ( void ); 

static void data_select( int type, int reg_num, Int fld_r 
FLDDatePtr f ld_data_j>t r ) i 
static void reset_data( int type ), 


static void set_minmox_fune ( char* scr ipt_commend ); 
static void re»et_mlnmax ( char* script_conmnnd ); 
static void adjust ninna* func( char* script_command >; 
static void Bet_minma*_modes ( char* Bcrlpt_coRmand >; 
static void invert_clip test ( char* scrlpt_conxnond ); 

static void clip and norm! int state ) ; 
static int copy normals! void ) ; 
static void delete_normals ( void ); 

static void check_delete_normals ( int new_dir . int newrengo»(3J (5) ) r 


static void update_actuators ( void ); 
static void update_data_inEo ( void ); 
static void update^diins ( int type, int dims [3] )j 

static void update_rolnmax_*llders ( float minmax(2 1(4 ] , int type ); 
static void update legend! float min_val, float tnax_val. Actuator** act ); 
static void update palettes! int clip_or_norm ) | 


fifndef MINIMUM 
(define MINIMUM 
fendif 

iifndef MAXIMUM 


(ifndef MIN 
(define MIN (a, b) 
fendif 

fifndef MAX 
(define MAX(o, b> 
fendif 

(define ROUND (x) 


((a) < <b) ? (a) 


<<a) > (b) ? (a) 


<<«> >“ 0.0 ? ((int) ( (x) + 0.5) ) : ((int) ((x) - 0.5))) 


(define LIMITjrO_MI H (a , min) 
(define t IMITJTO_MAX (a , max) 
(define LIMIT TO (a, min, max) 


If ((a) < (min)) (a) - (min) 
if ((a) > (max)) (a) * (max) 
(LIMIT_TO_MIN(a, min) i LIMIT _TO_MAX (a . 


| (define MATCH_D IMS (dims 1, dim*2) 

(dim* 1[I] — dlms2 (I) (( dimsl(J) == dim*2[J] ft dimxl[K] < 

| /» — — - — Panel Attributes — — — — 

* main panel */ 

HODULC_NAME 


(define KAIN_TITLE 
(define MAIN - KIN X 
(define MAIN - KIN - Y 

/* data panel »/ 

(define DATA TITLE 
(define DATA - WIN X 
(define DATA - WIN“y 
( define MATCH J5RID_BUTT0N 

static int data forrrots (3) « 
' contour panel */ 

(define F 1 SST_CO NTO UR_L ABEL 
(define FISST_CONTOUR_WIN_X 
(define FISST_CONTOUR_HIN_Y 

/* scalar minmax panel */ 

(define MINMAX JTITLE 
(define MIHMAX - WIN_X 
(define M I UMAX - K IN~ Y 


(define VECTOR_T ITLE 
(define VECTOR_WIN_X 
(define VECTOR - HIN~Y 


660 

800 


MODULENAME 


{ AL L_F ORMAT S . STRUCTURED, STRUCTURED ]; 


"Surfer: Contoi 


"Surfer: Scalar Minmax’ 


• Vector Scale Panel - 


- Vector Panel' » Scole Croup - 


(define SCALE_GROUP X 0.1 

(define SCALE_GROUP Jf (-! 

(define SCALE_GROUP_FRAMED 0 

(define SCALE GROUP NUM VALUES 2 


' SCALE__CROUP_HEIGHT) 



panels c; ;: 


etatic char* ecale_group_labels |SCALE_GROUP_NUM_VALUES) “ 
| "Vectors", "Frame Lines* I l 


/• initial vector and frame scale factors */ 


- Pansls Menu - 


static float icale_group_values [SCALE GRDUP NUM VALUES] - { 1.0, 0.1 |; 

/* add 100% to vector and 1% to frame while the ellder is pegged */ 
static float scale_group_slider_rates ( SCALE_GROUP_NUM_VALUES ] * { 1.0. 0.01 ); 
/* multiply the vector by 2 end the frame by 1.1 on each up button click */ 
static float scale_group_button_rates(SCALE_GR0UP_NUM_VAL0E3) - ( 2.0. 1.1 ); 

static chor* scole group script eoninands (SCALE GROUP_NUM VALUES) = 

( 

* VECT OR_SC AL E %f", 

"FRAME SCALE %f“ 

)» 


(define PANELS MENU ITEMS 
(define PANElS - MENU_CROUPS 
(define P ANE LS — ME NU_MARKAB LE 
(define PANELS_MENU JUSTIFY 


0 

P NL_LEFT_JU ST I F Y 


it at ic int panel s_menu_items_per_group | PANELSMENUGROUPS ) - 1 PANELS_KENU_ITEMS | ,• 
static int panel a_menu select ion* (PANELS_M£NU_ITEMS ) ; 
itatic int panel s_menu markable (PANELS_MENU_CROUPS ) “ ( 0 ) ; 
it otic chor* ponel*_menu_lobe 1* (1 + PANELS_MENU_ITEMS ) - 

I 

-Panels*. 

"Vector Scale...", 

"Scalar Minmax...", 

"Contours ..." 


Color Panel 


(define COLOR TITLE 
(define C0L0R - WIN_X 
(define C0L0R - WIN_Y 


MODULE NAME 

1030 

300 


st ot ic char* color lobels(KUM CS_C0L0RS) - 

“Line”. 

"Point". 


"Vector" , 
"Polygon", 
"Outline", 
"Glyph" 


stat ic int color_indices (NUM_CS_C0L0RS) , 
static int defnult_color_indicss [NUM_CS_COLORSJ 


I 

/» LINE_COLOR "/ 
/• POINT COLOR */ 
/» CONTOUR_COLOR */ 
/* VECTOR_COLOR */ 
/• POLYGON COLOR */ 
/* OUTLINECOLOR */ 
/» GLYPH COLOR */ 


RED. 

YELLOW, 

BLUE, 

CYAN, 

WHITE, 

WHITE. 

WHITE 


static float 
static float 

I 


color_rgbs (NUM GS COLORS) (3); 
default_color_rgbs (NUM_CS_COLORS ) (3) - 


/* LINE_COLOR 
/* POINT COLOR 
/• CONTOUR COLOR 
/* VECTOR_COLOR 
/• POL YG 0{?_C OLOR 

/* ootline“color 

/* GLYPH_C0L0R 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


ll.o. 

( 1 . 0 , 

( 0 . 0 . 

( 0 . 0 , 

(l.o, 

( 1 . 0 , 

(l.o. 


0 . 0 ). 

0 . 0 ). 

1 . 0 ). 

1 . 0 ), 

1 - 01 . 

1 . 0 ), 

1 . 0 ) 


Static chor* panels_menu_scr ipt_conmands ( 1 + PANELS_MENU_ ITEMS) m 

( 

"OPEN_PANEL %s". 

"DATA - . 

"COLORS". 

"VECTOR_SCALE", 

" SC ALAR JM INMAX". 

"CONTOURS" 


/* pansls •/ 

(define MAINJPANEL 0 
(define DATAPANEL 1 
(define COLOR PANEL 2 
(define VECT 0R_P ANE L 3 
(define MI NMAX~PANEL ( 
(define CONTOURPANEL 5 
(define NUM^PANELS 6 


Options Menu -■ 


(define OPTIONS MENOITEMS 
(define 0PTI0NS_MENU_GR0UPS 
(define OPTIONS - MSNU_MARKABLE 
(define OPTIONS_MENU_JUSTIFY 


5 

5 

1 

PNL_LEFT_JUSTIFY 


static int options menu_items_per_group(OPTIONS_MENU_CROUPS) 
I 1. 1. l. - l, 1 ); 

static int options menu select ion s (OPTION3_MENU_ITEMS) - 

| 0, 0. 0."0. O'), 

static int optiont_menu morkable(OPTIONS_MENU_CROUPS] - 

| 1. 1, 0, 0. 0“), 

static chor* opt ion e_menu_labels ( 1 + OPTIONS MENU ITEMS) ■ 

( 

"Options", 

"Oraw Outline". 

"Draw Glyph”, 


Q&KajfSSAL P AGE fS 
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. pan* 

ds.c\; ; : . S- iiiifci® 

"Recompute Normal*", 

etatlc char* render menu script command. (1 -* RENDER MENU ITEMS] - 

" Re.et* , 

l 

"Debug" 

"RENDER »*". 


"POINTS", 


"DOTS". 


"BUBBLES". 


"STARS", 


"GRID LINES 1". 

(define TYPE MENU ITEMS 3 

"CRID LINES 2", 

(define TYPE MENU GROUPS 1 

"GRID LINES 1 AND 2", 

(define TYPE MENU MARKABLE 1 

"CONTOUR LINES", 

Idefine TYPE MENU JUSTIFY PNL LEFT JUSTIFY 

"PLAIN VECTORS", 


"NORMALIZED VECTORS", 

•totic int typo mtnu item* per group[TYPE MENU CROUPS] = 

"FLAT POLYGONS", 

I TYPE MENU ITEMS |; 

"SMOOTH POLYGONS" 

•totic int typo monn .oloct ion* [TYPE MENU ITEMS) - [ 1, 0, 0 |j 

1; 

•totic int typo monu markable (TYPE MENU CROUPS) * 1 1 ) f 


•totic Char* typo monu label. [1 + TYPE MENU ITEMS] - 


"Typa". 

Attribute* Menu 

"Grid". 

Idefine ATTRIBUTES MENU ITEMS 17 

" Scalar" , 

Idefine ATTRIBUTES MENU GROUPS 8 

"Vector" 

Idefine ATTRIBUTES MENU MARKABLE 1 


Idefine ATTRIBUTESMENUJOSTIFY PNL_RIGHT_JUSTIFY 

■tatic char* typo monu icript coimondj (1 + TYPE MENU ITEMS] = 

static int attribute* menu item* p*r group [ATTRIBUTES MENU CROUPS) - 

[ 

( 2. 2. 2, 2. 3, 2, 2, 2 ); 

"TYPE %•", 

static int attribute* menu *e lect ion * (ATTRIBUTES MENU ITEMS] = 

“GRID", 

[ 0,1, 1,0, 1,0, 1,0, 1,0.0, 1.0. 1,0, 1,0 |; 

"SCALAR". 

■totic int attribute* menu markob let ATTRIBUTES MENU GROUPS) - 

"VECTOR" 

| 1, 1, 1, 1, 1, 1. 1. 1 )/ 

I; 

■ totic char* attributeajnenu_label.(l + ATT RI B UTES_ME NU_I TEMS ) “ 


"Attribute*" , 

/* — ---- — — Randar Menu — */ 

"Constant Color Contours", 


"Scalar Coler Contours". 

Idefine RENDER MENU ITEMS 12 

"Constant Color Vectors". 

t define RENDER MENU GROUPS 1 

"Scalar Color Vectors", 

tdof ino RENDER MENU MARKABLE 1 

"No Vector Tipi", 

< define RENDER MENU JUSTIFY PNL CENTER JUSTIFY 

"Arrowed Vector Tipi", 


"Straight Clip", 

static int render menu item»_per qroup (RENDER MENU GROUPS] » 

"Faded Clip", 

( RENDER MENU ITEMS }; 

"Default Shading". 

■tatic int render menu markable (RENDER MENU GROUPS] ■ 

"Shading On", 

1 l ); 

"Shoding Off", 

■tatic int rendar menu •elections [RENDER MENU ITEMS) - 

"Frame Lines Off". 

I 0,0. 0.0.0. 0.1.0, 0.0.0 ); 

"Frame Lines On". 

■tatic char* render menu lobel. |1 + RENDER MENU ITEMS] - 

"Stendard Normal*". 

1 

"Reversed Normal*’, 

"Render” , 

"Surface Normal*’, 

"Point*" , 

"Zon* Normal*" 

"Dot*", 

1; 

"Bubb lea ", 


"Star*". 

■tatic char* attribute* m*nu script command* [1 + ATTRIBUTES MENU ITEMS) - 

"Crid Lines 1". 

1 

"Grid Line* 2“, 

"ATTRIBUTES l»“. 

"Grid Line* 1 and 2", 

"CONSTANT COLOR CONTOURS", 

"Contour Line*", 

"SCALAR COLOR CONTOURS", 

■Plain Vector*". 

"CONSTANT COLOR VECTORS" , 

" Norma li red Vector*". 

"SCALAR COLOR VECTORS", 

“Flat Polygons' , 

"NO VECTOR TIPS". 

"Smooth Polygon*" 

"ARROWED VECTOR TIPS". 


"STRAIGHT CLIP". 


-fadedclTp", 


IlSIli 

•&' panels. c 

| v DEFAULT SHADING" , 

"LOOP ZONE %•" 

"SHADING ON". 

); 

"SHADING OFF". 

Static char* loop button* script porem command* [LOOP BUTTONS ROWS) ( 1 ] » 

"FRAME LINES OFF", 

I 

"FRAME LINES ON", 

[ "OFF", -FORWARD-. -BACKWARD-, "BOUNCE" ). 

"STANDARD NORMALS". 

( "BOTTOM", "TOP". "MIDDLE". " ’ ). 

“REVERSED NORMALS". 

[ "SINGLE", “MULTI", ’"."") 

"SURFACE NORMALS", 

1; 

"ZONE NORMALS" 
If 







(define NUM SLIDER BUTTONS 3 

Idefine DRAW BUTTON LABEL "Draw the Object" 

Idefine SLIDER BUTTONS FRAMED 1 

(define UPDATE OBJECTS BUTTON LABEL "Update All Object*" 

Idefine SLIDER BUTTONS RADIO GROUPING RADIO ROW 

Idefine NEW OBJECT BUTTON LABEL ’New Object" 

Idefine SLIDER BUTTONS ROWS 1 

Idefine COPY OBJECT BUTTON LABEL ’Copy Object" 



•tatic int slider button* per row (SLIDER BUTTONS ROWS] - |NUM SLIDER BUTTONS ) ; 

(define OBJECT TYPE0UT LABEL "Select Current Object:’ 

static int slider button* type* [NUM SLIDER BUTTONS] - 

Idefine OBJECT TYPE0UT LINES 5 

| PNL BUTTON, PNL TOGGLE BUTTON. PNL TOGGLE BUTTON ); 

Idefine OBJECT _TYPEOUT_COLS 08 JECT _NAME_L ENCT H 

■tatic int • 1 id* r_b utt o 1 act ion * ( NUM_SL IDER^BUTTONS } - 

/* data info typeout */ 

static char* slider button* label* [NUM SLIDER BUTTONS] » 


| "Reset", "Reset to tone", "Show Looping" If 

Idefine DATA INFO LABEL "Data Info:" 

static char* slider button* row labels[l] - | "Slider*:" |; 

Idefine DATA INFO COLS 20 


Idefine DATA INFO LINES 13 


Idefine DATA INFO BUF SIZE (2 * DATA INFO COLS * DATA INFO LINES) 





Id* fine NUM SURFACE BUTTONS 3 


Idefine SURFACE BUTTONS FRAMED 1 


Idefine SURTACE BUTTONS RADIO GROUPING RADIO ROW 

Idefine L00PING_LABEL “Looping:" 

Idefine SURFACE_BUTT0NS_R0W5 1 

Idefine NUM LOOP BUTTONS 9 

static int surface buttons per row[S0RFACE BUTTONS ROWS) - 

Idefine LOOP BUTTONS FRAMED 1 

[ NUM SURFACE BUTTONS J) 

Idefine LOOP BUTTONS RADIO GROUPING RADIO ROM 

static int surface button* type. [NUM SURFACE BUTTONS] - 

Idefine LOOP BUTTONS ROWS 3 

[ PNL RADIO BUTTON, PNL RADIO BUTTON, PNL RADIO BUTTON | ; 


• totic int .urface button, .elect ion. [NUM SURFACE BUTTONS) - 

■totic int loop button* per row (LOOP BUTTONS ROWS) » ( 4. 3. 2 ); 

1 1, 0, 0 T; 

■totic int loop button* type* (NUM LOOP BUTTONS) - 

•tatic chor* surface buttons label. [NUM SURFACE BUTTONS) - 

| PNL RADIO BUTTON. PNL RADIO BUTTON. PNL RADIO BUTTON, PNL RADIO BUTTON. 

[ "Single". "Boundary", “Range" ); 

PNL RADIO BUTTON, PNL RADIO BUTTON. PNL RADIO BUTTON. 

■tatic char* lur face button* row label* [1) - { "Surface:" |; 

PNL RADIO BUTTON, PNL RADIO BUTTON |; 

•totic chor* surface button* script corrmand*[l + NUM SURFACE BUTTONS) - 

.tatic int loop button, .election. [NUM LOOP BUTTONS) - 

i 

| 1, 0, 0. 0, 0. 0, 1. 1. 0 |, 

"SURFACE *»". 

.tatic char* loop button, label. (NUM LOOP BUTTONS] - 

"SINGLE", 

1 

“BOUNDARY", 

"Off", "Forward", "Backward*. "Bounce", 

"SURFACE RANGE" 

“Bottom", "Top ”, "Middle". 

If 

"Single". “Multi" 


); 


static char* loop button, row label. (LOOP BUTTONS ROWS) - 


t 

Idefine ZONE TYPEIN TYPE INT TYPE 

"Direction: ", 

Idefine ZONE TYPEIN FORMAT "%d" 

"Plane: 

Idefine ZONE TYPEIN LABEL "Zone:" 

w Zona t : " 

Idefine ZONE TYPEIN LABEL TYPE PNL LABEL TOP LEFT 

); 

Idefine ZONE TYPEIN WIDTH S 

■tatic char* loop buttons script load commands [LOOP BUTTONS ROWS) ■ 

(define Z0NE_TYPEIN_LIMITED 0 

"LOOP %*", 

•tatic float rone typein value. [3] - ( 0.0, 0.0, 0.0 |; 

"PLANE %•“, 
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/* — Slider Croup 

•define SL I DER_GROUP_f RAMED 1 

•define SLIDER_CRO0P_TYPE INTTYPE 

•define SLIDER_CROUp“sELECTION_BUTTONS 1 

static char ■ 1 idsr_gr oup_lobel_letter» [3] “ | 'I', * J’, ’K’ ); 

static char* s lider_group_dlr»ction_label “ ” Surface* ; 


panels.c 

•define SMM_F RAM EJJ EIGHT 15.0 

7 (define X_FRAME_ACT 0.0 

•define Y^FRAKE^ACT $.0 

/* for string typeins & labels */ 

•define ZER0_STRIHG_16 ”0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0“ 

/* Rultislider dimensions */ 


static float slider group_oalues [}]{S] - /* { I/J/K] (START/END/INC/CUR/DIM) */ 

I 

( 0 . 0 , 0 . 0 , 1 . 0 , 0 . 0 , 0.0 }, 

l 0.0, 0.0, 1.0, 0.0, 0.0 }, 

1 0 . 0 , 0 . 0 , 1 . 0 , 0 . 0 , 0.0 1 

If 

static int slider_group_selections (3) 1 3) » /* (I/J/K) [START/END/MID } */ 

I 

I 1, 1, 1 I. 

I 1. 1. 1 I. 

I 1, 1 , 1 ) 

If 


•define MULTISLIDER_WIDTH 0.5 

•define MULT ISL I DER_H EIGHT 6.0 

/* palette dimensions */ 

•define PALETTE WIDTH 1.0 

•define PALETTE~H EIGHT 6.0 


•define INVERT_CLIP_TEST_LABEL "Clip Inside” 


•define CLIP LABEL 
•define CLIP~TOP LABEL 
•define CLIP”bOT~LABEL 
•define CLIP T0P~NUMBER_5TR 
•define CLIP~BOT - NUMBER STR 
•define RESET CLIP LABEL 


• Clip; 

-Top;” 

" Bot : " 

ZERO STRING 16 

zero"string - 16 

■ Reset ” 


Actuator Attributes 


/* top left corner of the 

•define X ORIGIN 
•define y _ 0RICIN 
•define SPACE 

/* pull-down menus are at 

•define X_MENTJ 
•define Y_MENU 
•define XMENUINC 
•define Y_MENU_INC 

/* panel buttons */ 

•define X_BUTTON_INC 
•define Y_BUTTON_INC 


•define INT_LABEL_FORMAT 


0.0 

0.0 

0.1 

the top */ 

(X_ORIGIN + 1.25) 

Y_ORIGIN 

3.0 

0.5 


3.0 

0.6 


”%d- 


/* Scaler Minmax Stuff 

/* frame coordinates */ 


•define NORM LABEL 
•define NORM~TOP LABEL 
•define NORM~BOI “LABEL 
•define NORM”tOPJTOMBER_S 7R 
•define NORM B0T_NUMBER STR 
•define RESET_N0RM LABEL 


-Kormlize: “ 
-Bot :■ 

ZERO STRING 16 

zero~string”16 

- Reset " 


•define LEGE ND_L ABEL 
•define LEGE ND_M AX_LABE L 
•define LEGE ND_M I N_LABE L 
•define LEGEND_HAX NUMBER STR 
•define LEGEND_MIN~NUMBER_STR 
•define RESET_L E GEN D_LAB EL 
•define NUM LEGENDVALUES 


"Max: “ 

-Min:" 

ZERO_STRING_16 
ZERO_STRING_16 
” Reset ” 

11 


•define 

•define 

•define 

•define 

•define 

•define 

•define 


OPDATE_MMSLIDERS_LABEL "Update Miwnax Sliders’ 


ACT 0_M I NMAX_UP D AT E _LABEL 
MULTIZONE MINMAXLABEL 
SINGLE ZONE_MINMAX_LABEL 
SUBS ETJi INMAX L ABE L 
SURFACE_MINMAX_LAB EL 
SURFACE_SUBSET M INMAX LABEL 


"Auto Minmax Update" 

“Mu It i Zone Minmax" 
-Single Zone Minmax” 
-Zone Subset Minmax" 

" Surface Minmax" 
-Surface Subset Minmax” 


•define LEGEND 2 
•define LOW 0 
•define MED 1 
•define HI 2 
•define NUH_PALETTE_SETS 3 
• define NUM^PALETTE JTYPES 3 


/* CLIP, NORM, LEGEND •/ 
(* LOW, MED, HI */ 


•define HIN_MAP ((float) get_f unct ion_index ( 0 . 0) ) 

•define MAX_MAP ((float) get_f unct ion_index ( 1 . 0) ) 


•define PALETTE_X_INC 5.0 



•define 
•define 
•define 
•define 
•define 
•define 
•define 
• define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 
•define 


RESET_CLIP_ID 

RESET_NORM_ID 

RESET_LEGEND_IO 

CLIPJMSLI0ER_ID 

normmslioer” ID 
clipjtop io ~ 

CLIP_BOT~ID 

NORM_TOP_ID 

NORMBOTID 

LECEND_MAX_ID 

LEGEND_MIH~ID 

AUT 0_M I NMAXU PDATEI D 

0PDATE_HMSLIDERS_ID 

M UL T I_ZONE_M I NMAX_I D 

SINGLE_ZONEMINKAX_ID 

SOBSET_MINMAX_ID “ 

SDRFAC E_M I KMAX_I D 

SURFACE_SUBSET_M INMAX_I D 

contoor“min_id“ “ 
contour“max~io 
contour“num_id 
contour“inc“io 


*10* 
* 11 * 
*12* 
*13- 
*1<* 
*15" 
*16* 
'IT 
-18- 
*19- 
*2 0" 
*21- 
* 22 " 


/* for routines that lock and unlock the object */ 
llfdef DEBUG 

•define DEBUG_LOCKINC 1 

• else 

•define DEB UG_LOC KING 0 

tend! f 


ipahelsic 


Butt onCr oup* 
Butt onG roup * 
Type inCroup* 
SliderCr oup* 
Actuator* 


si ider_button*_<jroup; 
surface_butt ons_groupf 
ronetyp* in_grou p; 
sl ider_group; 
da ta_info_t ypeou t ; 


typedef struct main_actuators Main_Acts; 


miirmex actuate.) 


Actu 
Actu 
Actu 
Actu i 
Actual 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 

Actu 


minjrax frame; 

in vert_cl ip_test_button ; 

clip label; 

norm_labe 1 ; 

legend_label ; 

cl ip_top_typein ; 

norra_top_typein ; 

legend_max_t ypeln ; 

cl ip_nult islider ; 

norm_mult islider; 

legend^iru It islider; 

cl ip_bot_typein ; 

normbott yp e in ; 

logend_min_t ypeln; 

re set ^clip^button; 

re set_norm_button; 

reset_legend_button ; 

up da t e__mi nma x sliders button; 

outo_minmox_update button; 

modebuttons [NUM_SCALAR_HI NMAX_MODES ) ; 

palettes [ NUM_P ALETTE SETS) |NUM~PALETTE_TYPES] ; 

legend_labels [NUM LEGEND VALUES); 



•if DEBUG LOCKING 

• define DPRINT(s, v) printf(s, v) 

• else 

•define 0PRINT(s, v) 
tend i f 


ft TYPEDEFS •/ 

/* 

* define structures that will contain pointers to the important actuators 

* and groups of actuators that will be updated by various action funcs 


struct cc 


Actuator 

Actuator 

Actuator 

Actuator 

Actuator 

Actuator 


mimmax_act u; 
actuator l 

pa latte; 


Minmax Acts, 


r_min_typein; 
eont ou r_ma x_t ype in ; 
contour_num_typein; 

co ntou relabels [NUM_LECEND_VALUES ) ; 


typedef struct 


main_actuatoj 

KenuCroup* 
KenuGroup * 
MenuCroup * 
KenuGroup * 
MenuGroup * 
Act uator* 
Actuator* 
Act uator* 
Act uator* 


pane ls_meno_gr oup; 
ottr ibutes_monu_group ; 
type_menu_group; 
render_menu_group ; 
opt ionsmenug roup; 
ob ject_f rams; 
draw_ob ject_button; 
updote_objects_button ; 
n«s__ob ject_button; 
copyob ject_button; 
ob ject_typeout ; 
loop i ng_la be 1 ; 
loop_buttons_g roup; 


/• — GLOBALS */ 


* Cur_ob ject is a pointer to the current graphical object which contains a 

* grid surface as part of its structure. We allocate and attach to on object 

* during initialisation. We remain attached to this object until another one 

* is selected. Cur_object is locked each time before it Is accessed in an 

* action func and before exiting the action func It is unlocked (however 

* we still remain attached to it). This enforces mutuol exclusion between 

* this process and others (e.g., viewer). Sometimes ons action func 

* will call another in which case we do not actually lock the object 

* more than once but rather increment a locked count . This locked count is 

* also decremented after each unlock. However deeply nested the lock are, 

* there must eventually be a matching unlock so that when we are done 

* accessing the object other proceses may do so. Somstimes we must rsad or 
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* writ* to viewer (indirectly via the hub). In tbaie cases w« mult ba 

* aura that the object ia unlocked other wiae we could become deadlocked. 

* (If we are waiting for the hub. the hub ia waiting for viewer end 

* viewer la waiting for ua to unlock our object ao it can drow.) 

*/ 

atatlc tCraphieOb ject cur_ob ject ; 

atatic char cur_object_name [OB JECT_NAME_LENGTH ] ; /* name of object •/ 

/* 

* Grid_aurf ia a pointer to the currant grid aurface structure that is part 

* of cur_object. We must call lock_eur_obj*et 0 each t ime before acceaaing 

* this pointer and coll unlock_cur_ob ject () each time after accessing it. 

* For example . we trust lock at start of every action func that accesses 

* this pointer (neorly all do) and unlock before returning (or exiting). 

*/ 

Grld_Surface* grid_fiast; /* define globally so flaatSupport can use it */ 
/* array ho Ida pointers to oil Surfer panels */ 
atatic Panel* panel* (NQM_PANELS) ; 

/* structures hold pointers to all important actuators */ 


atatic Kain_Acts 
atat ic Minraax_Act ■ 
static ScaleGroup* 
static Contour Acts 


moin_octs/ 
nuLnmax_act a; 
»co l*_group; 
contour acts; 


/* special flogs and modes 


atatic int 
atatic int 
atatic int 
atatic int 
static int 
atatic int 

int 


locked; 
loop_mode; 
ahow_looplng = 1; 
update_ectuatora_mode; 

update all objects ^modej/* 

Interact lve; /' 


le; /’ 


currant object lock count */ 
looping status */ 
redraw slidors when looping? •/ 
set when selecting e new obj */ 
apply to ell objects? */ 
interactive or scripted */ 


redraw_ob j*ct__when_un locked * 1; 
call_update_minmax_oft#r_drowing » 0; 


static User tok*n_def tokens () ■ 

( 

( "SELECT OBJECT", 

( "NEWOBJECT", 

( " COPY_OB JECT" . 

( "DELETEOBJECT". 

( "DRAW". 

1 "TYPE". 

1 "RENDER". 

( " ATTR IBUTES " , 

| "OPTIONS". 

| "DIRECTION". 

( "SLIDER". 

( “ SURF ACE " , 

( "BOUNDARY*. 

| "LOOP", 

( "PLANE". 

| "LOOP_ZONE". 

| "SLIDERJUrflON". 


salact_ob ject. 
new_obj*ct, 
copy_ob ject . 
de let e_an_ob ject . 
t o g g 1 e_dr a w_f unc , 

sat_typa_fonc, 
sat_rendar_func, 
set_o 1 1 r i but a a_f unc , 
set_opt ions_f unc . 
set direction func. 


_boundery_aur fac*s_f unc , 

loop butt on s^_f u nc , 

loop butt on s f u nc , 

loop buttons func. 

_* 1 ide r_butt o ns__f u nc , 


REPEATYES |, 
REPEATYES | , 
REPEATYES ). 
REPEAT YES ]. 
REPEATJTES !. 

REPEATYES 
REPEAT_YES }, 
REPEAT_YES ). 
REPEATYES ). 
REPEATJfES ]. 
REPEAT - NO } . 
REPEAT - YES ), 
REPEAT_NO 1 , 
REPEAT_YES ), 
REPEAT_YES J, 
REPEATYES }, 
REPEATJfES ). 


( "MINMAX_MODE". 

\ "AUTO HINHAX". 

| "UFOATE_KINMAX". 

| "CLIP". 

| "HINMAX". 

| "RESETMINMAX", 

| "ZONE". 

| "VECTORSCALE", 

| "FRAMESCALE", 

| "CONTOUR", 

| NULL. NULL, REPEAT JJO | 


s *t_rainmax_mod*s . 
s *t _rai nma x_mod# • , 
s et_rai nma x_mod« s , 
inv*rt_clip_t*st , 
a e t_mi nma x_ f un c . 
res*t_minmax. 


set i 




s et_v*ct or_sca le . 
setvectoraca le. 
a et_cont our _l*gend . 


REPEAT_YES ). 
RE P EAT _ YES ), 
REPEAT_YES ), 
REPEAT_ YES ). 
REPEAT NO ) , 
REPEATJfES J. 
REPEAT - YES ). 
REPEATNO ) , 
REPEAT NO ) , 
REPEATYES ), 


* PUBLIC FUNCTIONS ' 


“f int get_looplng( void ) 

PURPOSE: 

Return the looping status of float. 

AUTHORS: 

Todd Plassol 

NASA Ames Research Canter 
Sterling Software 

REVISION HISTORY: 

12/89 

INPUT PARAMETERS: 

None 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 


panels. c 


looping status 


» GLOBAL VARIABLES USED: 


i int 


loop_mode 


defined in this file 


* FILES USED: 

* None 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

» FUNCTIONS CALLED : 

* None 
--*/ 

/* — — get_looping 

int get _loo ping ( void ) 

I 

ret urn loop_mode ; 


I 


- END OF get ^looping •/ 


/*++ void update_looping ( void ) 
* PURPOSE: 


Updates the grid surface structure to specify the next 
surface to display based on the current state end the 
looping control variables. Note: update sliders button 
must ba on for this to occur. 


Todd Plasaal 

NASA Ames Research Cantor 
Sterling Software 


REVISION HISTORY: 
?/89 

INPUT PARAMETERS: 
None 


OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 

extern Moin_Act a 
extern CridJJur face* 
extern int 
extern int 

FILES USED: 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 


grid - flast; 

loop_mod* 

ahow_looping 


declared in this file 
declared in this file 
declered in this file 
declared in this file 


int 

int 


lock_cur_ob ject () 
un lock_cur_ob ject () 
update_data_info () 


defined in this file 
defined in this file 
defined in this file 


void update_looping ( void ) 


updat*_looplng - 


int 


d; 

ranges: 


/* I. J. or K •/ 
/* ranges for d •/ 
/* current grid zone •/ 


#i fdef DEBUG 

printf ("inside update Jooping <) with loop_mods “ %d, show Jooping « %d\n", 
loop mode, show looping); 

tendTf 

if ( r*draw_obj*et_when_unlock*d “ 1 ) 

if ( loop_tnod* LOOPJ3FF II show_looping =- 0 ) return; 

10 ck_cur_ob ject 0 ; 

/* check if w* mnt advance to the next zone */ 

if ( grid_f last -> loop_ion* — MULTI_ZONE *4 

grid_fi**t -> loop_nsw_zon# (■ 0 ) 


me ■ ACC ESS 2 (mo in_oct a 


i_typ*in_group, get _i value) ; 


ACCESS! (main_a eta .ronejyp* in_g roup, a*t_ivolu*. i 
grid_fisst -> loop_new_zon* * 0; 


ORIGINAL P AGE IS 


OF POOR QUALITY 



I 

/* update the dots info typeout * / 

updatednta_in£o () ; 

d “ grid_fiaat -> direction; 
ron^ei » grld_£iaat -> range* [d]; 


panels ; c 


#ifdef I 
print £(' 
print f (' 
print f <' 
prlntf {' 
land if 


'grid_f last -> loop_mode 
’grid_£isst -> loop_dir 
’grid_£isst -> loop_zone 
‘grid_fiiat -> loop_new_zone 


■ %d\n", grid_fiaat -> loop_mode) ; 

* %d\n w , grid_f iaat -> loopjdir) ; 

■ %d\n”, grid_fiaat -> loop_zone); 

” %d\n” r grid_f laat -> loop_new_zone) ; 


unlock_cur_ob ject 0 ; 

/* redraw the current alider to indicate the new poaitlon */ 
ACCESS 5 (mo inject a . al ider_group , a et_l values , d, range* , 0) ; 

— END OF update_looping 


/*++ void update_minmax( void ) 


Update* the minmax panel to reflect the poaaibley altered 
grid aurface minmax valuea Note: the minmax mode meat be 
a aurface type and the update alider butto nuat be on for 
thia to occur. 


Todd Pleaael 

NASA Amea Reaearch Center 
Sterling Software 


REVISION HISTORY: 
3/90 

INPUT PARAMETERS: 
OUTPUT PARAMETERS: 
FUNCTION RETURN: 




GLOBAL VARIABLES USED: 

extern Minraax_Acts 
extern Gr id_Sur face* grid_flaat; 

FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 
void 


int 

int 


updat e_mi nme *_* 1 ide r i 
loek_cur_object f) 
unlock_eur_ob ject O 


i defined in thia 

defined in thii file 
defined in thia file 


void u pdote_minmax ( void ) 

I 

if ( minmax_act a .updat e^minmax^a lidera_button -> vol ~ 0.0 I I 

minmax_acta.mode_buttonaIMULTI_ZONE_HINMAX) -> vol — 1.0 II 
minmax_acta.mode_buttona [SINGLEZONEMINMAX) -> vol » 1.0 ) 


/* update and redraw the alidera 

lock_cur_ob ject () ; 
update_minmax_a lidera <grid_f iaat 
updote_minmax_s lider a (grid_fiaat 
update_minmax_a lidera (grid_£iaat 
unlock_cur_ob Ject () ; 

call_update_minmox_ofter_drawing ■ 


-> minnax, LEGEND) ; 
-> mirnnox, CLIP) ; 

-> minmox, NORM) ; 


- END OF updat e_minmax — -———-*/ 


^ void inlt_panela( int penel_x. int ponel_y ) 


panels.c 


Createa the ponela . 


Todd Pleaael 

NASA Amea Reaearch Center 
Sterling Software 


REVISION HISTORY: 
6/69 

INPUT PARAMETERS: 

int 

int 

OUTPUT PARAMETERS: 


■ FUNCTION RETURN: 


* GLOBAL VARIABLES USED ; 




acreen x poaitlon of main penal 
acreen y poaitlon of main panel 


i Grid Surface* 
i Panel* 

> Hainjtcta 

> ScaleGroup* 

i Int 


gr id_f Iaat 
panela [] 
main_acta 
acale_group 


extern char 


defined in thia file 
defined in thia file 
defined in thia file 
defined in this file 
color_labela [NUM_GS_COLORS] defined in this file 

coloz_indicea lNUM_CS_COLORS] defined in this file 
color~rgba[NUM_CS_COLORS] 13] 
cur_ab ject defined in thia file 

)ect_name(OBJECT_NAME_LENCTH] defined in this file 


■ FILES USED: 


NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 

extern int 
extern Penel* 
ScaleGroup* 
extern Penel* 
extern Panel* 
extern void 
extern void 
Panel* 

Panel* 

Panel* 

void 

void 


init_faat_cmap () 
make jpa nel 0 
make_scale_group () 
color_panel() 
f ld_dat a_panel () 
update_fld_dat a _panel I) 
exlt_modul e () 
main_panel () 
minmax_panel 0 
contour_panel () 
data_select () 
reaetatateO 


libemop 

libponu 

libponu 

libpanu 

llbfldpan 

libfldpen 

file lnit.c 

defined In thia file 

defined In thia file 

defined In thia file 

defined in this file 

defined in this file 


void aet_default_colora () 

void update_ob ject_typeout () 

void copy_color() 

tCraphieOb ject moke_new_object () 
tGraphicObject attach_ob ject () 
int get_ob ject__id() 

void fir»t_ob Ject_name 0 

int lock__cur_ob ject 0 

int unlock cur object I ) 


defined in thia 
defined in thia 
defined in thia 
defined in thia 
defined in this 
defined in thia 
defined in this 
defined in this 
defined in thia 


init_ponel» — — 

void init panels ( Int poml *. Int panel_y ) 

I 

Int mu at_i nit _ob Ject - 0; 

/* load up the tokens */ 
corrmand^inlt (tokens) t 

/* find or create the Initial graphic object 1 
flrat_ob ject_name (curjob ject_name) ; 


/• init object if noi 


if (cur object name(O) 

1 

/* get the id of the graphi< 


\ 0 ') 

bject and attach to it */ 
cur_object “ attach_ob ject ( get object id(cur object name)); 

if (cur_object m=L NULL) 

( 


else /* create the Initial graphic object */ 

1 

etrepy (cur_ob ject_nome. OBJECT_NAME) ; 
cur_object “ make_new_ob ject (cur_ob ject^nome) ; 
if ( cur _ob ject ■» NULL) 


I 


must_init_ob ject - 1 ; 

1 

/* lock it until we are done initializing 1 
lock_cur_ob Ject 0 / 


* Redefine the panel library colors 

* Note: EVERY module in the FAST environment that use* panela Or 

* the colormap must call this function before invoking its panela I 


PAUt* f-S 


OF POOR QUALITY 



/• Create the panels: ■/ 

/• er»at« main panel */ 

panel* [MAIN_PANEL] - moinpanel ( HAINJIITLE. ponel_x, ponely ); 
if (panel* [MAINPANEL] -= NULL) 

i 

Error (“Cannot create a panell Exit ing . . . \n”) ; 
exit nodule () ; 

1 

/* create fid data panel — — */ 

panels (DATA_PANSL) ■ fld_data_pen*l ( DATA_TITLE. 

DATA_HIN_X. 

DAT AW I NY. 

GRI DSOLUTIONTYP EOOT . 
MATCHGRIDBUTTON. 
dat a_fo rmat a , 
data_*elect ) ; 


pariei^c; 



aca l*_group_a 1 ider_rat e* , 
*col*_group_button_ret** r 
vector_*cale) ; 


if (*cole_group «= NULL) 

I 

Error ('Cannot create actaatora 1 Exiting \n") f 

exit_module() ; 

} 


/* — — create color panel */ 

/* initilize to the default colon */ 
aet_default_color* () ; 

panel* [COLORJ>ANEL ) ■ Color_panel( COLORJTITLE, 

COLOR_WIN_X. 

COLOR_WIN~Y, 

NUM_GS_COLORS, 
color_labela , 
color_indices, 

(color_rgb* [0} (0) , 
copy_color ) ; 


if (ponel a (DATA_PANEL) *= NULL) 

( 

Error (“Cannot create a ponel) Exiting .. .\n") ; 
exit_modnle () ; 


if (panel* [COLOR PANEL] -- NULL) 

I 

Error (“Cannot create a panel) Exiting .. ,\n") ; 
exit_modul e 0 ; 


create minmax panel 


7 


- create contour panel ' 


panel* (MINMAXPANEL) - minmaxpanel ( MINMAX_TITLE. 

MINMAX_HIN_X. 

MINMAX_NIN_Y ) ; 

if (panel* [MI NMAX PANEL ] =- NULL) 

I 

Error ("Cannot create a panel) Exiting ... \n' ) ) 

exit_module ( ) ; 

I 

/* — Create vector scale panel * / 

ponel* [VECTOR PANEL) « make_panel ( VECTOR_TITLE, 

VECTORWINX. 

VEC TOR_HI N_Y . 0. 1 >; 

if (ponel *[VECTOR_PANEL] =* NULL) 

[ 

Error (“Cannot create a panell Exiting .. .\n“) ; 
exit_module (] ; 


/* add a acale group to this panel ■/ 

ecale_group - make *cale_group( ponela [VECTOR_PANEL] , 

SCALE_GRDUP X. 
scale” GROUP - Y, 
scale”group~framed , 
scale”group_num_values . 

aca le_g r ou p_la be 1 a , 
aca le_group_va luea , 


panels [CONTOOR_PANEL] -contour_panel( FISST_CONTOUR_LABEL , 

F I SS7 ”CONTOU R_N I NX , 
fisst”contourj(in_y ) ; 


if (panel* (CONTOUR PANEL] = NULL) 

t 

Error (“Cannot create a panel) Exiting \n“> ; 

exit module () ; 

] 

if ( must_init_object ) 

[ 

/* init grid surface data structure */ 
reset *tote(0); 

] 

else 

1 

/* update the aetuotor* to reflect the grid surface */ 
update actuators () ; 

l 

/* update the data panel */ 
update_f ld_date_pan«l () ; 

/* unlock the current object so it tnoy ba drawn */ 
unlock_cur_obj#ct () ; 



/* this cause* communication to viewer *o unlock first */ 
update ob ject_typeout () ; 

I 

/* end Of lnit_panel* •/ 


/•*•**** * PRIVATE FUNCTIONS 

/*»»*** * 


7 

7 

7 


/•++ atatic tCraphicObject make_new_ob jact ( char* noma ) 
* PURPOSE: 


Allocotea and returns o grid surface object 

baaed on the given name but extended with a unique number. 


name of object 


Todd Pleaael 

NASA Am* a Ra search Center 
Sterling Software 

REVISION HISTORY: 

11/90 

INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

char* name name of object and number 

FUNCTION RETURN: 

extern tCraphicObject grid surface object 
GLOBAL VARIABLES USED: 

Nona 


panels;c : 7- 

* FILES USED: 

* Nona 

* NOTES: 

* NON-STANDARD CODE ! 

* CALLED BY : 

* void init_panel* () defined in thia file 

* void new_object() defined in thia file 

* FUNCTIONS CALLED : 

* extern tCraphicObject view_singla_buf far () llbviewl 



— mek*_n*w_object * / 

static tCraphicObject make_new object! char* name ) 

[ 

tCraphicObject object; /* pointer to a new object »/ 

DPRINT ('moke_new_object (name ■ %a)...\n“, name); 

object “ view_»ingle_bu£f«r (GRID_SORFACE, name, aizeof <Grld_Surfaca) ) / 
DPRINT (“ generates object » %d\n“ , object); 
return object; 

] 

/* END OF make_new_ob ject */ 


/*++ atatic Gr id_Sur face* lock_ob ject ( tCraphicObject object ) 

* PURPOSE: 

* 

* Lock* the given object and returns a pointer to It* 

* grid surface structure. 

* AUTHORS: 


Todd Plaasel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 

11/90 

INPUT PARAMETERS: 

tCraphicObject object object to lock 



Hnsi 

* OUTPUT PARAMETERS: 

* Non* 

* FUNCTION RETORN: 

* Grid_Surfoce* ;• point or to a grid surface structure 

* GLOBAL VARIABLES USED: 

* FILES OSED: 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* FUNCTIONS CALLED : 

* extern choc* view_*tart_wr it*_lock () libviewl 
— */ 

/*------— — --- — lock_obj*ct ---------------- — i 

static Crid_Sur face* lock_obj*ct{ tCraphlcOb Jsct object ) 

I 

Grid Surface* g» “ NOLL; 

DPRINT ("lock_ob ject {object ■ ld)...\a", object); 

if (<g* - (Grid Surface *) view_*tart Mr it«_lock (object) ) — NOLL) 

l 

Error ("Cannot lock to object l"); 

} 

DPRINT (* generates go = %d\n". gs) ; 
return gs; 

1 

/* END OF lockobjeet 




panels :c 


► static Int lock_cur_obj*ct ( void ) 






Todd Plessel 

NASA Ames Research Center 
Sterling Software 


REVISION HISTORY: 

7/89 

INPUT PARAMETERS: 

Non* 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 
int 

GLOBAL VARIABLES USED: 


locked count 


i tGraphlcOb ject cur object; 
: Grid Surface* grid fisst; 
i int locked 


declared in this file 
declared in this file 
declared in this file 


FILES USED: 


NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 

extern ch 
extern vo 

— */ 

/ * — lock__cur_obj*ct 

int lock cur _ob ject ( void ) 

l 

DPRINT ("lock_cur_ob ject () : before locked •» *d\n”. locked); 


if ( locked < 0 ) 

I 


printf ( '%* : locked - %d\n", MODULE _NAM£ , locked); 
Error ( ’Too many unlocks - Exiting...’ ); 

lifdef DEBUG 

I 

int producs c«ce_ file - 0; produc*_core_fil* /• produce cor* file; 

I 

fendif 

exit_module () ; 



panels.c 


else if ( locked** **“ 0 ) 

( 

DPRINT (’after if ( locked** -« 0 ) locked - *d so LOCKING\n locked) ; 

if ((grid fisst m (Grid Surface *) 

view_start writ*_lock (cur_obj*ct) ) “ NULL) 


DPRINT (’lock ci 
return locked; 


object () : after locked ■ %d\n“, locked); 


• END OF lackjcurjeb ject - 


++ static int unlock_eur_ob jaet ( void ) 

PURPOSE: 

Unlocks tha currant objact and NULLS grid_£isst 
(unless it has alraady bean unlocked) . 

In either case it decrements and returns the locked count. 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 

7/89 

INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

int locked count 

GLOBAL VARIABLES OSED: 

extern tGraphicOb jsct cur_obj*ct; 
extern Cr id_Sur face* grid_fisst; 


I Jii^JitS 


declared in this file 


FILES USED: 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 

extern 7777 

--*/ 

/' 

int un lock_cur_ob ject ( void ) 


vi*w_end_wr ite_unlock () 


inloek_cur_obj#ct - 


DPRINT ("unlock_cur_ob ject 0 : before locked * %d\n“. locked) ; 
if ( locked <• 0 ) 

I 

print f (’ts : locked - %d\n’. M0D0LE_NAME. locked); 
Error ( ’Too many unlock* - Exiting...’ ); 


tifdef DEBUG 

I 

int produce ct 
I 

#*ndif 


i_fil* “ 0; produc*_cor*_f ile /“ produc*_cor*_f ile; 


exit_module 0 ; 


else if ( locked — “ 1 ) 

t 

DPRINT (’after if ( locked— «= 1 ) locked - «d so UNLOCKING\n’, 
if ( redraw_object_when_unlocked ) 

vi*w_*nd_writ*_unlock (eur_obj*ct, ERASE_AND_DRAN) ; 
else vi*w~*nd~wr it e~u n lock ( cur~ob j ect , NO_NEED_TO_DRAN) ; 

qrid_fis*t e HULL; 


DPRINT ("unlock_cur_ob ject () : after locked - ld\n”, locked); 
return locked; 


) Of unlock_cur_ob ject - 


oid wait until ob ject_is_r*drown { void ) 

lock_cur job ject () ; 
unlock_cur_ob ject () ; 

view_dato_wo»_drewn ( cur_obj*ct, HAIT ); 


ORIGINAL 


PAGE IS 


OF POOR QUALITY 


PURPOSE: 


Increment* the locked count ond return* the now count. 

This ia uaed to koap the lock a ond onlocka matched 
when o lock ia made on o now object . 

AUTHORS: 

Todd Pleaael 

NASA Amea Reaearch Center 
Sterling Software 

REVISION HISTORY: 

7/89 

INPUT PARAMETERS: 

Hone 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

int locked count 

GLOBAL VARIABLES USED: 

extern int locked declared in thie file 

FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

void new_object () defined in thie file 

FUNCTIONS CALLED : 

None 

-*/ 

inc_lock_count — 

at ic int inc_lock_count ( void ) 

DPRINT (”inc_lock_count (> : before locked * %d\n'. locked); 
return ++ locked; 


/*++ atatic int get_objeet_id ( char* object_name ) 

* PURPOSE: 

* Writer to the Hub and gets the aha red memory id of the 

* named object . 

* AUTHORS: 

* Todd Pleaael 

* NASA Amea Reaearch Center 

* Sterling Software 

* REVISION HISTORY: 

* 11/90 

* INPUT PARAMETERS: 

* char* object_name name of the object to find 

* OUTPUT PARAMETERS: 

* None 

* FUNCTION RETURN: 

* int ahared memory id of the named obj« 

* 

* GLOBAL VARIABLES USED: 

* Nona 

* FILES USED: 

* None 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

*/ * void aelect job ject 0 defined in thie file 

* FUNCTIONS CALLED : 

--*/ 



tic int get^ob ject_id ( char* ob ject_name ) 

int id; /* ahared memory Id */ 

cher command [32 ] ; 

DPRINT ("get object_id (object name m la)...\n", object name); 
apr int f (coamand. 'CET_OBJECT %a". object name) ; 

■end_hub_cortmand (command) ; 

module_read_*ock ((char*) (id. alzeof(id)); 

DPRINT (" got id « 9d\n". id); 
return id; 

END OF get_object_id */ 


+ atatic tCraphlcObject attach_ob ject ( int object_id ) 

PURPOSE: 

Attache* to the given object ahared memory id and 
return* a graphic object. 

AUTHORS: 

Todd Pleaael 

NASA Amea Raaaarch Center 
Sterling Software 

REVISION HISTORY: 

11/90 

INPUT PARAMETERS: 

int object_id object id to attach to 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

tGraphicObject object; graphic object 

GLOBAL VARIABLES USED: 


panels.c 

* FILES USED: 

* None 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* void *elect_ob ject 0 defined in thl* fil« 

* FUNCTIONS CALLED : 

* None 
— */ 

/* ettach_ob ject 

atatic tGraphicObject attach_ob ject ( int object_id ) 

( 

tGraphicObject object; /* graphic object •/ 

DPRINT ("att och_object (ob ject_id ” »d)...\n”, object_id) ; 
if (objected — -1) 


I 

Error Cobject_id = -1 In attoch object O'); 
return NULL; 

I 

object “ ahm_get_locol_addrea* (objected) ; 

DPRINT (' generate* object %d\n*. object); 

return object; 

I 

/* END OF att ach_ob ject 


/*++ atatic void detach_cuz object! void ) 

* PURPOSE: 

* Detacher from tha currant object and NULLS 

* grid_fi«*t . 

* AUTHORS: 

* Todd Pleaael 

* NASA Amea Reaeorch Center 

* Sterling Software 





* REVISION HISTORY: 

* 11/90 

* INPOT PARAMETERS: 




* OOTPOT PARAMETERS: 


• FONCTION RETURN: 


* GLOBAL VARIABLES USED: 

* extern t Graph icObject cur_object 

* extern Gr id_Surface* grid flaat 

* FILES USED: 


declared in thia file 
declared in thia file 


NOTES: 

NON-STANDARD CODE : 
CALLED BY : 


* void aelect_object () defined in thia file 

* void new_object 0 defined in thia file 

* FUNCTIONS CALLED : 

* None 


— */ 


/• data eh_eur_obj act — — »/ 

atatic void detach eur object! void ) 

\ 

DPRINT ("dot ach_cur_ob ject () : before cur_object - %d\n", cur_object) ; 

ahm deatroy_local_addreaa (cur object); 
cur'object = NULL; 
grid_f iaat = NULL; 

I 

/« end OF detoch_cur_object */ 


/*++ atatic void delote_an_ob ject ( char* ecript_conrnond ) 


ipanelsic; 

* PURPOSE: 

* Delete* the contenta of the object named in the acript command. 

* AUTHORS: 

* Todd Pleaael 

* NASA Anei Reaearch Canter 

* Sterling Software 

* REVISION HISTORY: 

* 11/91 

* INPUT PARAMETERS: 

* char* acript csimund 

* OUTPUT PARAMETERS: 

* None 

* FUNCTION RETURN: 



* GLOBAL VARIABLES USED: 

* None 

* FILES USED: 

* None 

* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* external Hub/Viewer routine a 

* FUNCTIONS CALLED : 

* None 
--*/ 

/' da let e_an_ob ject 

atatic void delete on_object ( char* acript commond ) 

1 

int object_id; 

char ob ject~nome [ OBJECTNAMELENGTH ) ; 

t Graph icObject object » NULL; 

parae_conmand ( acript_command, "be". object_nama ); 
/* Get the object id from tho object name */ 
object_id ” get_ob ject_id ( object_nama ); 

/* Attach to tha object */ 


*/ 



IE { ( object * attach_ob ject ( object_id ) ) -- NULL ) 

1 

Error! "Cannot attach to object" ); 

I 

/* Deallocate any ob jeet-epecific data */ 
deolloeate_ob ject_data ( object ); 

/* Detach from the object •/ 

ahm_deatroy_local_addreaa ( object ); object “ NULL; 

/* Send the comuand to remove the object from the object liat */ 
module_conmand< "Viawer”. acript_comnand . NULL ); 

/* Genarate an updated Hating of available object a and aelact one */ 
update object typeout O ; 

1 

/* END OF delete_on_object */ 


/*++ atotic void aelect_object { char* acr ipt_comn«nd ) 

* PURPOSE: 

* Seta the current object 

* AUTHORS: 


Fergua J. Merritt 

NASA Amea Reaearch Centar 

Sterling Software 

REVISION HISTORY: 

3/90 

S/90 Todd Pleaael 

modified to work around locking t handle glyph etc. 
11/90 Todd Pleaael 

tlmpllfied and removed glyph and outline handling etc. 
4/91 Paul Relaita 

added coimand atuff 

INPUT PARAMETERS: 

char* acript_command act uator /corttnand 

OUTPUT PARAMETERS: 


pahels.c 

I * None 

« FUNCTION RETURN: 



GLOBAL VARIABLES USED: 

extern Crid_Sur face* grid_fiaat defined in thia file 

extern char* cur_ob ject_name [OB JECT_NAME_LENCTH 1 " * " » 

FILES USED: 

void update_actuatora () defined in thia file 

NOTES: 

NON-STANDARD CODE : 


CALLED BY : 
FUNCTIONS CALLED : 


extern void 
int 


void 

t Graph icOb ject 

int 

void 


exit_modu le (> 
lock”cur_ob ject ( ) 
unlock_eur_ob ject 0 
detach_cur_ob ject 0 
attach~ob ject <) 
get_object_ld() 
updat e_ob ject_typeout 


in it . c 

defined in thia file 
defined in thia file 
defined in thia file 
defined in thia file 
defined in thia file 
() define in thia file 


/' 


ielect_ob ject 


atotic void eelect object! chor* acr ipt_command } 

( 


t Graph icObject 

chor 

int 

Actuator* 


now_obj; /* new object 

new“ob j_name ( OBJ ECT_NAKE_L ENGTH ) ; 
new_obj_id; /* new obj id 

a » main_acta .ob jectjtypeout i 


*/ 


if ( i«_act ( acript contnand ) ) 

I 

/* if there ore no object name* in the liat then return */ 

if ( 1 get_aelection_name( a, new obj name, 

OBJECTNAME LENGTH ) ) 

I 

I 

/* If the aame object wai aelected then juat return */ 

if < at rca aecmp ( new_ob j_name, cur_ob ject_name ) “ 0 ) return; 

load_conmond ( "SELECT_OB JECT la", naw_obj_name >< 


par ia_conmand ( «cr ipt_command, *%a", new obj name ); 
aet aelection^nama ( a, new obj name ) ; 







/* if the ium object hob selected then juat return */ 

if ( itrcoKcnf ( nen ob j_name. cur_ob ject_nome ) « 0 ) return; 

hourglass^cursor t ON ) ; 

/* write to the hub for the shared memory id of the new selection */ 
new_obj_id = get_object_id ( nev_ob j_nome ) ; 

/* check the shared memory id for validity */ 
if (n«w_obj_id -1) 

I 

Warning ( "Selected object is no longer available!') ; 
updat e_ob ject _t ype out () ; 
hourglass_cursor ( OFF ); 

» r«turn, 

/* attach to the new object’s shored memory id */ 
if ((new_obj = attach object (new obj id)) »» NOLL) 

l 

Error ("Cannot attach to new grid surface object!"); 
hourg las s_cur sor ( OFF )f 

I 

/* detach from the current object's shared memory id */ 
detach_cur_ob ject () j 

/* update the current object to the new one (and copy name) */ 
cur_object = n»w_ob j ; 

str cpy (cur_ob ject_nome. new_ob j_name) ; 

/* update oil actuators */ 
update actuators (); 
hourglass _cursor ( OFF ) ; 


/• END OF select_ob ject */ 


/*++ static void new_objsct( char* script _command ) 
* PURPOSE: 


panels.c 


AUTHORS: 


Creates a new object (a default one) 

and makes it the current object to modify. 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY : 

5/91 

INPUT PARAMETERS: 

char* script_conrand actuator /command 

OUTPUT PARAMETERS : 

None 

FUNCTION RETURN: 

None 


GLOBAL VARIABLES USED: 

extern Crid_Sur face* 
extern tCraphicOb ject 
extern char 
extern char 

FILES USED: 


NON-STANDARD CODE : 


grid_fisst 

cur_object 

cur_object_n« 

cuz_object_n« 


defined in this 
defined in this 
e(OBJECTNAMELENGTH) * - 
e [OB JECT_NAME_LENGTH ) " " 


CALLED BY : 


FUNCTIONS CALLED : 


Grid Surface* 
t Graphic Object 


updateob ject_typeout 0 
lock_cur object () 
unlock_cur_object ( 
lock_objoct () 
moke_new__object () 
ino_lock_count () 
detach_cur_objoct ( 


defined in this file 


defined in this 
defined in this 
defined in this 
defined in this 
defined in this 
defined in this 


void new_object ( char* ici ipt_command ) 

Grid_Surface* new_grid_flsst; /* -> new surface obj 

tGraphicObject new_obj; /* temp new object 

char new~obj_name [0BJ6CT_NAME_LENGTH J ; /* nam« 

int dir; “ 7* I.J.K diraction 

iat type; /* START. END . MID, ZONE 



panels.c: 



if ( is act ( script command ) ) 

i 

load_commond ( " NEW_OBJECT ” ); 
return; 


/* allocate a new object */ 
at r cpy ( ne w_ob j_name , OBJECT_NAME) ; 
new_obj “ make_new_object (new_obj_name) ; 
if (new obj « NULL) 

I 

Error ("Cannot allocoto new objectl"); 
return; 

I 

/* lock the new object and point to o new grid surfoce structure */ 

if ((new grld_f isst ■ lock object (new obj)) ■* (Crid Surface *)NULL) 

( 

Error ("Cannot lock new object)*); 

} 

/» lock the current object while copying (grid_fisat is curront ono) */ 
lock_cur_ob ject () ; 

/* copy the old grid surface object to the new one */ 

memepyl new_gr id_f is et . gzid_fisst, s ireof (Grid_Sur face) ); 

/* Clear the shared memory ids of the normals in the new surface */ 

for ( dir ■= 0; dir < 3; ++dir ) 

for ( type ■ 0; type <4; ++type ) 

new_grid_fiist -> f ield_ids (NORM_I0_INDEX ( dir. type )) - -1; 

/* Clear the shared memory id of the contours data */ 

naw_gr id_fisst -> f ield_ids (C0NT0URS_IDJ - -1; 

/* unlock and detach from the current grid surface object */ 

unlock_cur_ob jset 0 ; 
detach_cur_ob ject () ; 

/* update the current object to the new one (and copy nama) */ 

cur_object ■ new_obj; 

grldfisst *> new_grid_fisst; 

str cpy (cur_ob jsct_noms, new_ob j_name) ; 


* must increment locked count here (to account for locked new object) 


inc_lock_count () I 

/• Reset everything to the default etete */ 


reset_st ate ( 1 ); 
unlock_cur_object ( ) ; 

/* 

* update typeout (after lock since this does comma icat ion ) 

* and select the new object 

*/ 

update_ob ject_t ypeout () ; 

1 

/* END OF new_object 


/*++ static void copy_object ( char* script_command ) 

» PURPOSE: 

* Copies the current object and makes the copy the current 

* object to modify. 

* AUTHORS: 

* Todd Plessel 

* NASA Ames Research Cantar 

* Starling Software 

* REVISION HISTORY: 

* 6/89 

* INPUT PARAMETERS: 

* char* script_conmand actuator /command 

* OUTPUT PARAMETERS: 

* None 

* FUNCTION RETURN: 

* None 

* GLOBAL VARIABLES USED: 

* extern Gr id_5ur face* 

* extern tGraphicObject 

* extern char 

* FILES USED: 


defined in this file 
defined in this file 
e [OBJECT_NAME_LENGTH) " ” * " 






» 

interactive ■ 0; 
lock_cur_ob jact 0 ; 

grid_f list -> draw - (int) a -> val; 
unlock_cur_ob jact () ; 


/• END OF toggle_draw_func 


/*++ Static void deol locote^ob j*ct _dnt a ( tCraphicOb jact object ) 


AUTHORS : 


Deallocates the data associated with the given object. 


Todd Plesiel 

NASA Atnes Research Center 
Sterling Software 




* FUNCTIONS CALLED : 

* None 




/» — deallocata_object_data 

static void deallocate_ob ject_data ( tCraphicOb ject object 

l 

Crid_Sur face* gt - NULL; 
int i; 

/* Lock this object */ 

if ( ( gs - lock_ob ject ( object ) ) " NULL ) 

I 

Error ( 'Cannot lock to object' ); 


/* Delete field ids for object-specific data */ 

for ( i ■» START_I NORM ID; i < NUM_FIELDS; ++i ) 

I 

if ( gs -> field_ ids [i] 1= -1 ) 

SDEAL LOCATE ( gs -> field_ids(i] ) 
gs -> field_ids[ij ■= -1; 


REVISION HISTORY: 

11/91 

INPUT PARAMETERS: 

tCraphicOb ject object 
OUTPUT PARAMETERS: 

Hone 


FUNCTION RETURN: 

GLOBAL VARIABLES USED: 

None 

FILES USED: 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

void delete_an_object () 


/* Unlock this object and mark it so it WON'T be drawn */ 
view_end_write_unlock { object. NO_DRAX ( ; 

» 

/• END Of deallocate_object_dato 


/*++ static void copy_colors ( int attribute ) 

* PURPOSE: 

* Copy the current color into grid surface structure 

* AUTHORS: 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 


REVISION HISTORY: 


defined in this file 



* 4/90 

* INPUT PARAMETERS: 

* int attribute index of changed color 

* OUTPUT PARAMETERS: 

* None 

* FUNCTION RETURN: 


* GLOBAL VARIABLES USED: 

* extern int color indices (NUM_GS_COLORS) ; this file 

* extern float color^rgbs (NUM_CS_COLORSJ 13] ; this file 

* extern Gr id_Sur£ace* grid_fisst; this file 

* FILES USED: 


None 


« NOTES: 

* NON-STANDARD CODE : 

« CALLED BY : 

* FUNCTIONS CALLED : 

* int lock_cur_ob ject 0 defined in this file 

* int unlock_cur_object () defined in this file 


/• copy_color 

static void copy color ( int attribute ) 

( 

if ( attribute >■ 0 44 attribute < NUM_GS_COLORS ) 

l 

leck_cur_ob ject 0 / 

grid_fi»st -> color_indlces (attribute] * col ©r_indicas (attribute] ; 
grld~fl»st -> color_rgbs (attribute J [R] • color_rgbs [attribute] (R); 
grid_flsst -> color_rgbs (attribute) [C] “ color_rgbe (attribute ] [C] » 
gr id_f last -> color_rgbs (attribute ) [B] “ color_rgbs (attribute ] IB] ; 
unlock cur_object O ; 

) 

I 

/• END OF copy_co lor 


panels. c 

j * PURPOSE: 


AUTHORS: 


Copy the current colors into grid surface structure 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 

4/90 

INPUT PARAMETERS: 

None 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 

extern int color_indices [NUM_GS COLORS]; this file 

extern float color_rgbs [NUMJ5S_COLORS] [ 3 ] t this file 

extern Crid_Sur face* grid_fisst; this file 

FILES USED: 

None 


NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 


* int lock_cur_ob ject O defined in this file 

* int unlock_eur_object () defined in this file 

— */ 

/* copyjcolori 


•/ static void copy colors ( void > 

I 

int i; 

for ( i e 0; i < NUM GS COLORS; ++i ) copyjcolori i >; 

I 

/* END or copy colors 



/*++ static void copy_colora ( void ) 




/*++ static void update_color» ( void ) 
* PURPOSE : 


* Copy the colors from tho grid surfoco itructuro into 

* tho global colors array and then fins* tho color odit 

* panol to display thoso colors. 

* AUTHORS: 

* Todd Plossol 

* NASA Amos Rosoarch Contor 

* Sterling Software 

* REVISION HISTORY: 

* 4/90 

* INPUT PARAMETERS: 


panelsic 


lock_cur_ob ject () ; 


for Ci - 0.- i < NUM_CS COLORS; i++> 

i 

color_lndicos [i] * grld_£isst -> color_lndlcos ( 1] ; 


1 


color_rgbs [ 1 ] (R) 
colorrgbs [i)(C) 
color_rgbs { 1 ] (B) 


* grld_fisst -> 
“ grld_fisst -> 
“ grid_fisst -> 


color_rgbs [i ] [RI ; 
color_rgb* [ i] (G) ; 
color_rgbs [ i J [B] ; 


fix_color_panel () ; 
unlock_cur_ob ject () ; 


END OF update_colors 



OUTPUT PARAMETERS: 


* None 

* FUNCTION RETURN: 

* GLOBAL VARIABLES USED: 

* extern int color indices {NUMGSCOLORS} ; this file 

* extern float color“rgbs [NUMGSCOLORS] {3 1 ; this file 

* extern Crid_Sor£ece* grid_fisst; this fils 

* FILES USED: 

* Nona 


NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 

extern void fix_color_ponel () libpenu 

int lock_cur_objeet () defined in this file 

int unlock_cur_object () defined in this file 


/* update_co lors 

static void update colors ( void ) 

[ 

int i; /* loop on colors 


/*++ static void set_defoult_colors ( void ) 

* PURPOSE: 

* Copy the default colors into globals 

* 

* AUTHORS: 

* Todd Plessel 

* NASA Ames Research Center 

* Sterling Software 

* REVISION HISTORY: 

* 4/90 

* INPUT PARAMETERS: 

« None 

* OUTPUT PARAMETERS: 


None 

FUNCTION RETURN: 
None 


*/ 


GLOBAL VARIABLES USED: 


extern int 
extern float 
extern int 
extern float 


de fau It co lo rindico . ( NUM_CS_COLORS } ; this 

default_color_rgbs (NUM GS_COLORSJ [3] ; this 
color_indices[NUM_GS_COLORS|j this file 
color_rgbs[NUM_GS_COLORS) [3]; this file 


file 

file 



panels.c 


* FILES USED: 


None 

FUNCTION RETURN: 


* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* FUNCTIONS CALLED : 


— */ 


/*- _____ a et_de feu It _col or s ™ - * / 

static void set default colors ( void ) 

[ 

memcpy ( color_indices, default_co lor _ind ices, sireof color_indices ); 
memcpy ( color_rgbs, default_color_rgbs, sizeof color rgbs Tl 

I 

/* end OF set^de feu lt_colors */ 


/*++ stetic Panel* imln_penel( char* title, int win_x, int win__y ) 

* PURPOSE: 

• 

* Creates ond displays the main penal. 

» The panel is titled if title is not NULL, ond is positioned at the 

• screen coordinetes <win_x, wln_y) . 


Todd Plessel 

NASA Ames Research Center 
Sterling Softwere 

REVISION HISTORY: 

6/«9 

12/90 rewrote to use groups 


Panel* p 
GLOBAL VARIABLES USED: 
extern Main Acts 
FILES USED: 

None 


» NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

« FUNCTIONS CALLED : 

* extern void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

* void 

— */ 


a pointer to the panel 


mein_octs; declared in thio file 


exit_module () 
f ile_io_func() 
penels_func () 
attr ibutes_func () 
type_func () 
render_func () 
opt ions_func () 
u pda te_ob ject s (1 
new_object 0 
copy_object () 
dump state () 
reset_st ate () 
loop_buttons_f unc ( | 
s lider_buttons_func () 
s ur f ece_but ton s_f u nc ( ) 
i jk_ronges_£unc O 
direct ion_£unc [) 
boundary_surfaces_func 
select ^object I ) “ 

togg le_drow_func (> 
zonefuncO 


file in it .c 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
defined in 
() defined in 
defined in 
defined in 
defined in 


this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 

this 


main_panel 


static Panel* main panel) char* title, 

I 


extern void fiattPonel (Panel*. 
Panel* p; 


Actuator * 
Actuator * 
float 
float 


f » 

x - X ORIGIN; 
y - Y^ORIGIN; 


int win_x, int win_y ) 

float . float ) l /* fit It panel 

/• trap panel 
/* tmp octuetor 
/* tmp frame ectuator 
I* ect x position 
/* ect y position 


file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 

file 


*/ 

*/ 

•/ 



char* title 
int win_x 


title for panel window 
initial x position of window 
initial y position of window 


Main Panel --------------------- — •/ 

if ( | p ■ moke panel (title, win x, win_y. 1, 0 ) ) NULL ) 

( 

Error ("Connot create a panel I Exit lng . . An”) ; 



QRIGiMAL P AGE is 
OF POOR QUALITY 




IPH 


:;parieis:c 


mein_acts .loop_buttons_group * 
make_button_group( 


LOOP_ 

LOOP* 

LOOP* 


BOTTONS_FRAMED, 

BOTTONS_RAD IO_GROOPI NG. 
BUTTONS_RDKS - 1 /* HACK * 
but ton s j>e r_r ow , 
buttons_types , 
button i_labels, 
button! tow labels , 


if (naln acts. loop buttons_group = NOLL) 

! 

Error ("Could not make actuators 1 Exiting ... \n") ; 
axit_module() ; 


Slider Buttons — • 

► SLIDER_BOTTONS_ROHS) + SPACE; 


SLIDER_BUTTONS_FRAMED. 
SLIDER_BOTTONS RAD IO_CROOPINC. 
SLIDER_B OTTONS~RONS, 
s 1 ids r_b utt ons_per _row . 
slidar_buttons_typas. 
slider buttons labels, 
slider buttons_row labels, 
NOLL, ~ _ 

slider buttons selections, 
slider buttons £unc ); 


if (ma in_act s . si ider_buttons_group « 


NOLL) 


Error ("Could not make actuators 1 Exiting. . .\n”) ; 
axit_module () ; 


- Surface Buttoi 


y — 0.5 * (1 H 


SURFACE BUTTONS RONS) + SPACE; 


main acts .surface_buttons_group * 
make_button_group( | 


SORFACE BOT TONS _FRAMED , 

S ORF ACE_BOTTONS _RAD 1 0_GR0UP INC , 
S URFACE_BOTTONS JIOWS . 
surfoce_buttons_per_rovi. 
s ur f ace_but t on »_t y pes , 
surfoce_buttons_lobels . 
surface buttons row labels, 


NULL, 

sur face_buttona_s elect ions, 
aur foce_buttons_func ); 


if (main_ects .surface_but ton s_g roup •= NULL) 


■ Zone Typeln Group — 


main_act s .rone_typein_group = 
make_typein_group ( 


INT TYPE. 

ZONE_T YPE I NFORMAT . 

ZONE_T YPE I N~W IDTH . 

«on e_t ype i n_va lue s , 

Z0NE_T YPEI N~L IMITED. 

Z0NE_T YPEI N_L ABEL , 

ZONEJT YPEI n“l ABEL_TYPE , 
rone_func ) , 

if (main_ects.zone_typein_group “ NOLL) 

{ 

Error ("Could not make actuators) Exit ing . . . \n") ; 
exit module () ; 

1 


nain_act s . ■ lider group ■ 

make slider group ( 


y. 

SL1 DER_GROOP_FRAM ED . 

SL 1 DER_GROOP~SELE CT I ON_B OTTONS , 
SLI DER_CROOP~TYPE , 
slider_group_volues, 
slider group label letters. 
slider_group direction lobel, 
i jk_ranges_fu nc, 
direct ion_func, 
boundary_surfaces_func ); 


if (main_oct ■ . ■ lider group ■ 


/* hide the selection buttons until we enter multi surface mode */ 


panels. c 


ACCESS2 <main_acts . slide r_g roup, hide_select_buttons ) ; 

/* highlight the middle slider */ 

ACC ESS 3 (main_acts .slide r_g roup. highlight_s lider, MID); 
/***** ******** create fisst panel ********************* 
f is it Panel (p. X_0RIGXN, Y_ORIGIN) ; 
return p; 


/♦++ static Panel* 
* PORPOSE: 


dnmox_panel ( char* title, int win_x. int win_y ) 


Creates and displays the scalar minmax panel for fisst. 

The panel is titled if title is not NOLL, end is positioned < 
screen coordinates (win_x, win__y) . 


Todd Plessel 

NASA Ames Research Canter 
Sterling Software 


* REVISION HISTORY: 
C/89 

INPOT PARAMETERS: 

int 

int 


title 

wln_x 


OOTPOT PARAMETERS: 

FUNCTION RETURN: 

Panel* p 
GLOBAL VARIABLES OSED S 
extern Minmax Acts 
FILES USED: 


minmax acts; 


title for panel window 
initial x position of window 
initial y position of window 


a pointer to the panel 


declared in this file 


)N -STANDARD CODE : 


CALLED BY : 


FUNCTIONS CALLED : 


extern void close_perent_penel () 

extern Panel* make_panel() 

extern Actuator* make_actuetor () 


void 

void 

void 

void 


aet_mirunox_f unc ( ) 
reiet_mlnrvx () 
adjust_minmax_fo ncl) 


1 ibpanu 
libpanu 
1 ibpanu 

defined in this file 
defined in this file 
defined in this file 
defined in this file 


/* mlnmax__panel 

■totic Panel* minmax_panel ( char* title, int win_x, Int win_y ) 


Panel* 

Actuator* 

Actuator* 

Actuator* 

float 

float 

float 

float 

int 

float 

float 

static char 
static char 
static char 


i; 


y_inc ; 
y save; 

«Tip_ms_labeHZ) ( 16 ); 
norm ms_lebel{ 2 ) ( 16 ); 
legend_label a (NUM_LEGEND_VALOES ) ( 16 ) ; 

/» legend values 


/* tmp panel 
/* tmp actuator 
/* tmp actuator 
/* frame actuator 
/* act x position 
/* oct y position 
/* act height 
/* act height 
/• looping index 
/• y position increment 
/* save y position 
/* clip multislider 
norm multislider 


“ pnl_mkpanel () ; 

-> label “ title; 

-> x ■ (long) win_x; 
-> y “ (long) win_y; 
-> ppu - 36.0; 

-> visible “ 0; 


Minmax Panel - 


- window close buttoi 


-> y ■ y; 

-> upfunc ■ (PNL_AT0NC) close_parent_panel; 
inl_addect (a. p) > 




OF POOR QUALITY 




:= 


/•- — Mlrnnax From* */ 

y -= SMM_FRAME_HEICHT; 

£ “ pnl mknct (pnl £r am* ) ; 

£->*-*; 

£ -> y - y; 

PNL_ACCESS(Frama, £. mod*) I- PNL_rM_FR£E; 
pnl_addact (£, p) ; 

minmo*_acta .minmax_£rom* * f; 


panels :C;;: 


wm i 


- Kinno* Hod* ■ ■ 


« -> y * y ; 

a - > val = 1.0; 

a -> u - ADTO_MINMAX_UPDATE_ID; 
a -> upfunc m (PNL__AFUNC) But_rainmox_mod*B; 
pnl_addaubact (a. £) ; 

minmax_acta -auto_minmo*_updot*_button « a; 
y -« 0.75; 

a * pnl_mkact (pnl toggl* button); 
a -> label - UPDATE_MMSlIdERS_LABEL; 

a -> y - y; 

a -> u - UPDATE_HMSLIDERS_ID; 

a -> upfunc - (PNL_AFUNC) aat_min™x__mod*a; 
pnl_eddiubect (a. f) ; 

minmax_acta .updota_mimnax_alid*ra_button ** a; 

x += 6.0; 
y +« 0.75; 


a -> y - y; 

a -> u *= MULTI_ZONE_HINMAX_ID; 
a -> wal ” 1.0; 

a - > upfunc • (PNl_AFUNC) a*t_minmax_Riod*a ; 
pnl_addaubact (a, f) ; 

minmax_act a . mod*J>ut ton a (MULTI_ZONE_M I NMAX ] 
y — 0.75; 


■ SINGLE_ZONE_MINMAX_ID; 


a -> upfunc ■ (PNL_AFUNC) «*t_min™*_mod*» | 
pnl_addsubact (a, f) ; 


minmax_ecta .mod*_buttoi 
y — 0.75; 


i [ S I N CLE 20N E_M I NMAX ) - a; 


-> y = ys 

-> u ■= SUBSET_MINMAX_ID; 

-> upfunc = (PNLAFUNC) B*tr-.inirnx_nod«i ; 
il_addi ubact (a , £); 

rainmax_acta .moda_buttona (SUBSET_MINHAX] = a; 
y — 0.75; 

= pnl_mkact <pnl_radiobutton) ; 

-> labal - SORFACE_MINMAX_LABEL; 

-> x = x; 

-> y = y; 

-> u = SURFACE_MINMAX_ID; 

-> upfunc = (PNL_AFUNC) i*t_mi nmax_mode« ; 
il_addiubact (a , f) ; 

rainmax_ucta .mod*_buttona(SURFACE_MINMAX] - < 
y -- 0.75; 

- pnl_mkact (pnl radio button); 

-> labal = SORFACE_SUBSET_MINMAX_LABEL; 

-> x = x; 

-> y = y; 

-> u = SURFACE_SUBSET_MINMAX_ID; 

-> upfunc = (PNL_AFUNC) a*t_min™x__modea ; 
il adda ubact (a . f ) ; 


minmax_acta .mod*_buttoi 
pnl_*ndgrOup(p) ; 


1 1 SURFACE _SUBSET_MI NMAX J - a; 


x - X_FRAME_ACT; 

/* Invart Clip Taat Button - 


minmax_acti . inwart_el ip_t*at_button 
y — 1.0; 

/* Clip. Norm f Lagand Labala 





panels.c 


: : : x : x ; x' 


a -> y » y; 
pnl_addiubact (a. f) > 

minmax_acta .clip^labal - e 

x 4- PALETTE_X_INC; 

a = pnl mkact (pnl labal); 
a -> labal - KOwf LABEL; 
a -> * » x; 

a -> y * y; 

pnl addaubact(a, £) ; 
minmax_acta .norm_labal “ e 
x +- PALETTE X INC; 


min™x_octa . l*g*nd_lab* 1 * a; 

/» Clip, Norm i Lagand Top/Max Typaina -* 

x - X FRAME ACT; 
y — 1.0; 

a ■ pnl_mkact (pnljtypain) ; 
a -> labaltypa - PNLLABEL LEFT; 
a -> labal - CLIP_TOP_LABEL; 

a -> x “ x; 

a -> y *» y; 

a -> u - CLIP_TOP_ID; 

o -> upfunc » (PNL AFUNC) tat minmox func; 
PNL_ACCES5 (Typain, ”"a , lan) - FLOAT_STRING_NIDTH ; 
PNLACCESS (Typain, o. atr) - CLIP_TOP_NUMBER_STR; 
pnl_addaubact (a. f) ; 

minma x_act a ,clip_top_t ypain * a; 

x 4« PALE TTE_X_ I NC ; 

a * pnl mkact (pnl typain); 
a -> labaltypa » PNL_LABEL_LEFT; 
a -> labal “ N0RM_T0P_LABEL; 


a -> y ■ 


yi 


* NORM_TOP_ID; 
a -> upfunc a (PNL AFUNC) *et_minmax func; 
PNL_ACCESS(Typain,”a, lan) - FLOAT_STRINC_HIDTH ; 
PNL_ACCESS (Typain. a. att) - NORM_T0P_NUMBER_STR; 
pnl addaubact (a. f ) ; 

minmax acta. norm top typain “ a; 

x 4- PALETTEJC_IKC; 

a “ pn l_mkact (pn l_t ypain) ; 
a -> labaltypa “ PNL_LABEL_LEFT; 
a -> labal - LEGEND MAX LABEL; 


a -> y . 


ys 


* LEG£ND_MAX_ID; 
a -> upfunc = (PNL_AFUNC) aat_minmax_func; 
PNL_ACCES3(Typain,~a, lan) “ FLOAT_STRING_HIDTH; 
PNL“ACCES3 (Typain, a, atr) « LEGEND_MAX_NUMBER_S?R; 
pnl_addi ubact (a , f ) ; 

minmax_acta ■ lag and_max_t ypain m a; 

/* Clip l Norm Multlalidara */ 


x - XFRAMS ACT; 
y — MOLTISLIDERJJErCHT 4 0.5; 
w - MULTISLIDER WIDTH; 
h - MULT ISL IDER_HE IGHT; 

/* ator* the labala for th* Clip multialidar */ 

for (1 - 0; i < 2; 44i) 

I 

aprintf (clip_ma_lob*lU), INT_STRING_FORMAT. 0) ; 

a ■ pnl_mk.act (pnl_niltialidar) ; 
a -> x ■ x; 
a -> y “ y; 

t -> w * a; 

a -> h “ h; 

a -> u - CLIP_MSLIDER_ID; 

a -> act iv* func “ ( PN L_AF UNC ) ad juat_minmax_func; 
a -> minval “ 0.0; 
a -> maxval - 1.0; 

PNLACCESS (Multialidar, a. n) ■ 2; 

PNL_ACCESS (Multialidar, a, mod*) - PNL_MSM_CONSTRAINED; 
pnl adda ubact (a, f) ; 

ta ■ a -> al; 

ta -> axtval * 1.0; 

ta -> labal - clip_ma_lab*l(0); 

ta ■ ta -> naxt ; 

ta -> axtval “ 0.0; 

ta -> labal * clip mi labal(l]; 

pnl_fixact (ta) ; 

minmnxocta .clip multialidar ■ a; 
x 4- PAL ETT E_X_INC; 

/* ator* the labala for tha Norm multialidar */ 

for (i - 0; i < 2; 44i) 

I 

apr intf <norro_ma_lebal (i) , I NT_S7RI NG_ FORMAT , 0); 


I 


“ pnl_mkact (pnl_irult ial ider) ; 

->*■*; 

-> y ■ ys 

-> w ■ h; 

-> h “ h; 

-> minval “ 0.0; 

-> maxval *1.0; 

-> u - NORM_MSLIDER_ID; 

-> activefune ■ (PNL_AFUNC) ad juBt_mirnax_f unc; 


- GRiQINAL PAQ£ JS 
OF POOR QUALITY 




— * :j : 

ils.c 

• AUTHORS : 

p -> label » title; 

* 

p -> x = (long) win xj 

* Paul Kelaita 

p -> y ** (long) wln_yj 

* NASA Ames Research Center 

p -> ppu » 36.0; 

* Sterling Software 

p -> visible ■ 0; 

• REVISION HISTORY : 

x - X ORIGIN + 1.5; 

* 

y - Y ORIGIN + 5.0; 

« 12/90 


* 

/* Window close button */ 

* INPUT PARAMETERS : 


* 

o « pnl mkoct (pnl wide button) ; 

* char* title title for panel window 

o -> label “ "Close"; 

* int win x initial x position of window 

a -> x * x; 

* int win y initial y position of window 

a -> y “ y; 

* 

o -> upfunc » (PNL_AFUNC> close parent _pan*l; 

* OUTPUT PARAMETERS : 

pnl_addact (a, p) ; 

* None 

/ *- — --- — --------- contour legend */ 

* FUNCTION RETURN : 

x « X ORIGIN ♦ 3.0; 

* 

y * Y ORIGIN - 6.0; 

* Panel* p a pointer to the panel 


* 

a * pnl mkact (pnl palette); 

* GLOBAL VARIABLES USED : 

o -> * * *; 

* 

a -> y = y; 

* 

a -> w = PALETTE WIDTH; 

* FILES USED : 

* -> h - PALETTE HEIGHT; 

* 

a -> min vel « MIN MAP; 

* Non© 

a -> max vel - MAX MAP; 

* 

pnl addact (a, p) ; 

* NOTES : 


* 

contour acta. palette “ e; 

* NON-STANDARD CODE : 


» 

/*- Legend Number labels - — — -*/ 

» CALLED BY : 


* 

X +- PALETTE WIDTH + MULTISLIDER WIDTH + 0.1; 

» FUNCTIONS CALLED : 

y_inc = MULTISL IDER_H EIGHT / (float) ( NUM_LEGEND_VALUES - 1); 

* 

y save • y; 

* extern void cloae__parent_pan*l <) libpanu 

y“— 0.15; 

I 

for (i « Of 1 < HUM LEGEND VALUES; ++i) 

— */ 

1 


a *= pnl mkact (pnl label) ; 


spr int f Teo nt our_l ab* 1 s [ i J , FLOAT_S TRI NG_F ORMAT . 0.0); 


a -> label - contour labels (i) ; “ 

static Panel* contour_panal ( char* title, int win «, int win^y ) 

a -> x - x; 

1 

a -> y - y; 

Ponel* p; /* tmp panel */ 

pnl_addact (a. p) ; 

Actuotor* a; /* tmp actuator */ 


float x; /* act x position */ 

contour_oct s .cont our_lnbels [i] - a; 

float y; /* act y position */ 


int i; /* looping index */ 

y +■ y ine; 

float y_inc; /* y position incrament */ 

1 

float y save; /* save y position */ 


static chor contour_lab*la (NUMLEGENDVALUES) [ 16 ) ; 

/* Contour Miniraura/Maximum Typaln* •/ 

/* legend values •/ 



x — 3.0; 


y “ y_save - 1.0; 


a “ pnl riact (pnl t ypein) ; 

/* FISST Contour Panel */ 

a -> labeltyp* - P NL_L ABE L_B OTTOM ; 


a -> label = "Contour Min”; 

p “ pnl_mkpan*l ( ) ; 



Ilillii , . • • ••••;.• 


o -> y - y; 

a -> u - CONTOUR_MIN_ID; 

a -> downfunc « <PNL_AFUNC) clearjtypein ; 
a -> upfunc =* (PIJL AFUNC) set contour_legend; 
PNL_ACCESS<Typeln.~a. Ian) - FLGAT_STRING_WIDTH ; 
PNl“aCCESS (T ypaln, a, «tc) - LEGEND_MIN_NUMBER_STR; 
pnl_oddact (a, p) ; 


COO tou r_a ct * .con tour_min_t ypein = a; 
y +• MULT ISL I DER_K EIGHT + 1.5; 


a - pnl_mkact (pnl_t ypein) ; 
a -> labeltyp* « PNL_LABEL_TOF ; 
a - > label - 'Contour Mas”; 


° -> y * y; 

a -> u - CONTOOR_MAX_ID; 

a -> down tunc ■ (PNL_AFUNC> cl*ar_t ypein ; 
a -> upfunc » (PNL_ATUNC) s*t_contour_l*g*nd; 
PKL_ACCESS(Typoin, a. Ion) FLQAT_STRING_WIDTH ; 
PNL_ACCESS (Typoin, a, str) - LEGENDMAXNUMBERSTR; 
pnl_addoct (a, p) ; 

contour_oct*.contour_inaxjtyp*in ■= a; 

/* — — - — Contour* /Increment Typelna 

* - X ORIGIN + 3. Of 
y - Y~ORICIN + 3.5; 

a * pnl mkoct (pnl typoin) > 
a -> labeltyp. - PNL_LABEL_TOP ; 
a -> label - 'Number of Contours'; 
a -> x - * + 1.0; 
a -> y - y; 

a -> u - CONTOUR_NUM_ID; 

a -> downfunc - (PNL“AFUNC> cleor_typ#in ; 
o -> upfunc = (PNL AFUNC) *et_contour_l*g*nd; 

PNL ACCESS (Typoin, ”a, Ion) - INT_STRING_WIDTH; 

PNL “ACCESS (Typoin, a. Str) - "40"; 
pnl_addact (o. p) ; 

contour_act » . con t our _num_t ypein • a ; 

y — 1-5; 

a * pnl mkact (pnl typoin); 
a -> labeltyp* - PNL_LABEL_TOP ; 
a -> label ■» “Increment of Contour*'; 
a -> x = k; 

a -> y » y; 

a -> U ■ CONTOUR_INC ID; 

a -> upfunc - (PNL_AFUNC) **t_contour_l*g*nd; 

PNL _AC CESS (Typeln, a, len) - FLOATSTRINCWIDTH ; 
PNLAC CESS (Typoin. a, itr) “ ZEROSTRINC16; 
pnl addact (a, p) ; 

contour act*. contour inc_t ypein ■ a; 


panelsc 



END OF contour_pan*l — */ 


/•++ atotic void ■et_eontour_l*gend( char* *tr ) 

* PURPOSE : 

* Set* the contour* legend according to min , max, numcontour*. 

* and increment 


AUTHORS : 

Paul Ke la It a 

NASA Am** Reiearch Centar 
Sterling Software 

REVISION HISTORY : 

12/90 

5/91 oddod scripting 

INPUT PARAMETERS : 

char* Itr comnand/actuator 

OUTPUT PARAMETERS : 

FUNCTION RETURN : 

Non* 

GLOBAL VARIABLES USED s 

extern Minmax_Act * minmn*_act# defined in thio file 

extern Gr id_Surfece* grid_fii»t defined in thi* file 

FILES USED : 


NOTES : 


Require* that imth.h be included for atof() 
NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 


ORIGIN*! PAGE & 

Of poor quality 



I8|M , „ 


inc atr <* PNL ACCESS (Typein. contour acta. contour inc typein, atr); 

* void update legend!) defined in thia file 


» int lock cur object!) defined in thia file 

Inc flag = minmax flag “ 0; 

* int unlock cur object () defined in thia file 



if ( atrcaaacmp (mode, "MINMAX") -- 0) 

1 

minmax flag * 1; 


para* eomnand (atr. ’la If If”, mode, ttl, it2) ; 


apr intf (min atr, FLOAT STRING FORMAT, tl); 

atatic void act contour legend! char* atr ) 

aprlntf (max atr. FLOAT STRING FORMAT, t2); 

! 

pnl fixact (contour act a. contour min typein); 


pnl fixact (contour octa. contour max typein); 

Ido fin* IS REMAINDER!™*, min. inc) \ 

1 

(((max - min) /inc) »= <int) ((max - min) /inc) 7 0:1) 

ala* if (at rcaaecmp (mode, -NUMBER”) ■»=* 0) 

Actuator* a; 

paraa conmandlatr. ”la Id”, mode, inumc) ; 


apr intf (numc atr, INT STRING FORMAT, numc); 

char* min atr; 

pnl fixact (contour acts. contour num typein); 

char* max atr; 

1 

char* numc atr; 

*lae if (at rcaaecmp (mod*. “INC”) =» 0) 

char* inc atr; 

t 


inc flog ■= 1; 

float inc; 

para* command (atr, “la 4f“, mode, itl); 

float tl, 1 2 ; 

• pr int f ( inc atr, FLOAT STRING FORMAT, tl); 

int numc; 

pnl fixact (cont our acts. contour inc typein); 

char mod* [ 16} ; 

1 

int inc flag, minmax flag; 



get validity of value* 

if (ia act (atr) ) 

if ( (int) at of (numc atr) < 2) 

1 

aprlntf (numc atr, INT STRING FORMAT. 2); 

a » (Actuator*) atr; 



if (atoflinc atr) <- 0.0) 

a ™ contourocti .c©nt©ur^m«_typ«in > 

aprlntf (inc_atr, FLOATSTRINGFORMAT. 0.1); 

min_atr - PNLACCESS (Typein , cont our_o eta . contour_min_typ*in, atr) f 

/* 

max atr * PNL ACCESS (Typein, con tour “act a .eontour~max*'typein > atr) f 

begin checka 

load_contnand (“CONTOUR la If If*, “MINMAX*, 

*/ 

atof (min_atr) , atof (mx atr ) ) ; 

if (mimnox_f lag ) 

ala* if (a ■* contour acta. contour num typain) 

updat e_lagend(atof (min__atr) . atof (max_atr) , 

1 

contour acta. contour labala) ; 

load eomnand ("CONTOUR la Id*. “NUMBER”, 

1 

atoi (PNL ACCESS (Typein, a. atr))); 


1 

elae if (inc flag) 

elaa if (a -= contour acta. contour inc typein) 

1 

1 

numc = (int) ( (atof (max atr) - atof(min atr)) / etofdnc atr)) + 1 + 

load cornnand (“CONTOUR la If*, “INC*. 

IS REMAINDER (at of (max atr), atof (min atr), atof (inc atr>); 


a print f(numc_atr, INT_STRING_FORMAT , numc) ; 

1 

pnl fixact (contour act a. contour num typein); 

rat urn ; 

1 

1 

/* update the Increment no matter what */ 

paree_conmnd (atr. *la*. mode); 



if (tine flag) 

/* grab all the atringa firat */ 

l 


inc « (atof (max atr) - atof (min atr)) / (atof (numc atr) - 1.0) ; 

rain_at r " PNL_ACCESS (Typein, contour_oct a .contour_min_typein, atr); 

aprlntf (inc_atr .~>LOAT_STRING_FORMAT. inc) ; 


pnl fixact (contour act a. contour inc typein); 

mx_*tr * PNL_ACCESS (Typein. cont our_act a ,contour_max_typein , atr); 

1 

nume_atr - PNL_ACCESS (Typein, contour_octa .contour_num_typ*in, atr); 

lock_cur_ob ject () ; 



grid_fiaat 
grid fiaat 
grid fiaat 
grid fiaat 


-> num contoura 
-> contoura_inc 
-> contoura_min 
-> contoura_rw* 


• atoi (numc_atr ) ; 
“ at of (inc_»tr) ; 

“ oto £ (min_at r) ; 

“ atof (max_ atr) ; 


panels.c 

• CALLED BY s 

* FUNCTIONS CALLED : 


do lata _contour* () ; 




unloek_cur_ob ject 0 ; 



- END OF a at cont ou r_l aga nd - 


/*- — fil*_iofunc */ 

atatic void fila io_func( chor* fila_nai7ia. int mod* ) 

I 

Meaaege (“fila io func: On imp lem* nt ad f eatur# . . . “ ) ; 

I ~ ~ 

/* END OF £il*_io_func •/ 


/*++ atatic void fil*_lo_func ( char* fil*_nam*. int mod* ) 

* PURPOSE: 

* Call bock for aova/raatora fila io. 

« AUTHORS: 

* Todd Plaaaal 

* NASA Amaa Raaaarch Cantar 

* Starling Software 

* REVISION HISTORY: 

* 6/91 

* INPUT PARAMETERS: 

* chor* fil*_nom* pat had file noma to raad/wrlta 

* int mod* 0 " read, 1 “ writ* 

* OUTPUT PARAMETERS: 

* Non* 

* FUNCTION RETURN: 

* Non* 

* GLOBAL VARIABLES USED: 

* Nona 

* FILES USED: 

* Nona 

* NOTES: 

* NON-STANDARD CODE : 


/*++ atatic void pan*la_func( int group, int item ) 

* PURPOSE: 

* Handle* tha panala menu functiona. 

* AUTHORS: 

* Todd Plaaaal 

* NASA Amea Raaaarch Cantar 

* Sterling Software 

* 

* REVISION HISTORY: 

* 

* 12/90 

* INPUT PARAMETERS: 

* 

* int group menu group number 

* int item item number within group 

* OUTPUT PARAMETERS: 

* Non* 

* FUNCTION RETURN: 

* Non* 

* GLOBAL VARIABLES USED: 

* FILES USED: 

* Non# 

* NOTES: 


OF -POOR 


pass m 

quality 





» PURPOSE: 


; panels :c 




Handles the type menu functions for commands 


Todd Plessel 

NASA Ames Re ■•arch Center 
Sterling Software 


converted to a menu group call-bach 
Paul Kelaita — added conrnnd stuff 
rewrote conmand stuff 


REVISION HISTORY: 

9/89 

12/90 

9/91 

6/91 

INPUT PARAMETERS: 

int 
int 


OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED: 

FILES USED; 

* None 

* NOTES: 

» NON-STANDARD CODE : 

* CALLED BY : 

* FUNCTIONS CALLED : 

— */ 

static void type_func ( int group, int Item ) 


1 


interactive ” 1; 

lood_conxnand ( type_menu_script_cocmandi [01, 

type_rosnu_script_coninands [item 4 


- END OF t ype_func - 


tic void set_type_func ( char* scriptconroand ) 


Handles the type menu functions from a eomand 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 


REVISION HISTORY: 

9/89 

12/90 

9/91 

6/91 


converted to a menu group call-beck 
Paul Kelaita — added command etuff 
rewrote csrnnand stuff 


INPOT PARAMETERS: 

char* script 
OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED: 

extern Grid Surface* 
extern Main_Acts* 
extern Mirunax_ActS 

FILES USED: 

NOTES: 

NON-STANDARD CODE : 

CALLED BY : 

FUNCTIONS CALLED : 


grid_fisst; 
main_oct s 
minmax_acts 


declared in this file 
declared in this file 
declared in this file 


cottmand_index ( ) 
delete_normals () 
lock_cur_ob ject (1 
unlock_cur_object () 


libpanu 

defined in this file 
defined in this file 
defined in this file 


set_type_func ■ 


static void set_type_func< char* scr ipt_command ) 


panels. c 


old_type; 
par am 1 32 1 ; 


par aa_command ( scr ipt_commond, 


— index; 

lockjeur_ob ject <) ; 

/* save the old type •/ 
old_type - grid_fisst -> type; 
if ( o ld_type — index ) 


/* previous type 


I 


/* store new grid surface type and reset the panel if neccaseary ’ 
grid_fisst -> type ■ index; 
if ( J interactive ) 

ACCESS6 ( main_oct« .type_menu_group, set_select ion, 0, 
grid_fis*t -> type, 1. 0 If 

interactive • 0; 

if (gr id f last -> type i- CRIDJTYPE) 

I 

/* if in auto update mode then reset the scalar mimrax */ 
if (minmax acta. auto minmax update_button -> val •« 1.0) 

l 

reset _minmox ( » RES ET_M INMAX LEGEND** ); 


) 

/* if neccessary deallocate any normals data */ 


if (USES_NORMALS (grid_f last ) ) 


if (oldjtype — VECTOR_TYPE I I 

grid_f isst->type ■» VECTOR_TYPE) 


1 


» 


dslete_normalsO ; 


/* if neccessary deallocate any contours data */ 
If ( grid fisst -> render mods *■ CONTOUR LINES ) 
delet e contours () f 

I 


if ( <<grld_fisst - 
grid_fisst - 
grid fisst -3 
(grid_fiast ■ 


> rendermode — PLAINVECTORS || 

> render_mode — NORM VECTORS) Cl 
type l-~VECTO RETYPE) II 

> render mode — CONTOUR LINES (( 


grid_f last -> type 1- SCALAR_TYPE) ) 


unl©ck_cur_object () ; 


- END OF set_type_fun< 


E+ static void render_func( int group, int item ) 
PURPOSE: 

Handles the render menu functions. 

AUTHORS: 

Todd Plessel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 


12/90 converted to a menu group call-back 
9/91 added command stuff 
6/91 rewrote command stuff 


INPUT PARAMETERS: 


OUTPUT PARAMETERS: 
None 

FUNCTION RETURN: 


menu group number 

item number within group 


ORDINAL PAGE IS 


OF POOR QUALITY 
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Todd Pleaael 

NASA Ame* Reaeorch Cantor 
Starling Software 


REVISION HISTORY: 

6/89 

12/90 

5/91 

INPUT PARAMETERS: 
char* 

OUTPUT PARAMETERS: 
FUNCTION RETURN: 

GLOBAL VARIABLES USED 

astern Grid_Surf< 
astern Main_Acta' 

FILES USED: 

Nona 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 
int 


converted to o mono group call-back 
converted to acrlpting 


■cript_conmand conrnand/ect 


- eet_opti©n*_func - 


atatic void aet^opt iona_£unc ( char* acript_costnand ) 


paraa command (acript_coirmancl. "la". param) ; 
lock_cur_object ( ) ; 

if <it rcaaecmp (poram, "OUTLINE") “ 0) 


l 


paraa corcmand (acript_corrmand, "%a ta", param, val) ; 
grld_£iaat->draw_out line - ON_OR_OFF_VAL (val ) ; 

ACC ESS 6 (hm in act a .opt iona__menu_group. aet_ae lection, 0, 0, grid_£ia*t->draw 


alae if (atrcoaeonp (poram, "GLYPH") < 


parieconmond (aeript_corroand, “la %«*, param. val); 
g r id_f i* at->draw_g lyph = ON_OR_OFF_VAL ( va 1 ) ; 

ACCESS6(maln_acta . opt iona_menu_g roup, a at_aa lection. 1. 0. grid_f iaat->drow_gl 

» 

alae if (atrcaaecmp (parom, "DELETEJJORMALS") ~ 0) 

{ 

delata_normola () ; 

1 

alaa if (atrcaaecmp (param, "RESET") «» 0) 

« 

reset atata(l); 

1 

elae if (at rcoaecmp (pai 

I 

dump_atote O ; 

I 

unlock_cur_ob ject O ; 


"DEBUG") ■» 0) 


;_opt iona_fnnc — 


I-+ atatic void duiT 7 _atate( void ) 

PURPOSE: 

Prlnta the contenta of the grid_fiaat atructure and globala 

AUTHORS: 

Todd Pleaaal 

NASA Amea Research Center 
Sterling Software 

REVISION HISTORY: 

6/89 

INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 



* extern Grid_Surface* grid^fiaat 

* FILES USED: 


declared in thia file 


* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

* FUNCTIONS CALLED : 


int lock_cur_ob ject 0 defined in tbia file 

int unlock_eur_object () defined In thia file 


dump_atate - 


atatic void dun^ atatel void ) 

I 

lock_cur_objoct () ; 


print £ (*\n“ ) ; 
print f ("object_type 

grid_fiaat -> ob ject_type) ; 
print f ("draw 

grid_fiaat -> draw) ; 
printf ("draw_out lina 

grid_flaat — > draw_out line) ; 
printf ("draw_glyph 

grld_fiait -> draw glyph) ; 
printf ("reo_noriRala 

grid_fi««t -> rev_normala) ; 
pr i nt f < " z one_nor mo 1 a 

grid_fiaat -> zone_normala) ; 
printf (” framed 

grid_flaat -> framed) ? 
print f ("ahaded 

grid_f iaat -> ahaded) ; 
printf ("type 

grid_fiaat -> type); 
printf C'contour_color_type 

grid_flaat -> eontour_c©lor_type) ; 
printf ("vector_eolor_type 

grid_fiaat -> vector_color_type) ; 
printf ("vector_t ipjtype 

grid_fiaat -> vector_tip_type); 
pr i nt £ ( “ a u r f ace_mode 

grid_fiaat -> aurfoce_mode) ; 
pr 1 nt f ( ’ r ende r_mode 

grid_fiaat -> renderjnode) ; 
printf ("clip_mode 

grid_fiaat -> clip_mode); 
printf (“minmax__mode 

grid_fiiat -> raiimo»_mod«) ; 
printf Cinvert_«lip_teat 

grid_flaat -> invert_elip_te*t) ; 
printf (’’outo_mininoK_update 

gridfiaat -> auto_minmax_update) ; 
printf ("update_minma*_Blidera 


- %d\n'. 

- td\n". 

= ld\n” , 

- Id\n“, 
= ld\n" , 

- ld\n*. 
» ld\n" . 

- *d\n". 
= ld\n", 
» %d\n" , 
» ld\n". 

- Id\n". 
» ld\n" , 

- td\n", 

- %d\n". 
“ ld\n". 

- Id\n", 
« ld\n", 
« ld\n*. 


panels, c 


printf ( 
pr int f ( 
printf ( 
printf ( 
printf ( 
pr int £< 
printf ( 
printf ( 
printf ( 


grid_fiaat -> update_minmax_i 
‘direction 

grid_fiaat -> direction); 

‘ loop mode 
grid fiaat 
‘ loop_dir 
grid_£iaat 
' loop_au rface 
grid_fiaat -> loop 
' loop_xone 
grid~flaat 

grid~fiaat 

grid_f iaat 
‘ reaet to a 


-> loop_mode) ; 
-> loop_dir) ; 


-> loop_new_i 




■ ld\n". 


grid_fiaat -> reaet_to_zone) ; 
ahow looping * td\n", 

grid_fiaat -> ahow_looping) ; 
printf (" bounder y_f lag* (I J K) (START END MID] = ") ; 
printf <"l*2d I2d I2d) (I2d I2d %2d] (I2d I2d I2d]\n", 
grid_flaat -> boundory_£ log a (I ) (START ] . 
gr id_f iaat -> boundary_f lag a (I j (END] , 
grid_f iaat -> boundary_f lag a (I ) (MID] , 
gr id_f iaat -> boundory_f lag a (J) (START] . 
grid_flaat -> boundary_f lag a ( J) [END] , 
gr id_f iaat -> boundary_f laga ( J] (MID] , 
grid_fiaat -> boundory_£ laga ( K ) (START) , 
grid_flaat -> boundary_£ leg a (K) (END] , 
grid fiaat -> boundary £ laga (K ] (MID] ) ; 
printf ("acale_factora (VECTOR. FRAME] - (If lf)\n", 

gr id_fiaat -> aco le_faCtor a (VECTOR_SCALE) , 
grid~£iaat -> aco le_fector a [ FRAME_SCALE ] ) ; 
print f ("color_indicea (LlNE_COLOR] ~ « *d\n”, 

grid_£iaat -> color_indicea [LINE_COLOR] ) ; 
printf (“color_rgba (LINEJCOLOR) - (%£ %f »f)\n", 

grid fiaat ->eolor_rgba(LINE_COLOR] [R] , 
grid~f iaat ->color_rgba (LINE COLOR] fC) . 
gr id~flaat->color_rgba (L INE~COLOR] (B] ); 
printf ("col or_indice* (POINTCOLOR] ” - *d\n". 

gr id_fiaat -> color_indieea [POINT COLOR]); 
printf ("colorrgba [POIN7_COLOR] (*f »f If) \n". 

grid_fiaat->col©r_rgbt [POINT_COLOR] [R] . 
grid_fiaat->eolor_rgba |POINT_COLOR] [G] . 
grid” fiaat->color~rgba [POINT COLOR] [B] ); 
p r int f (" co 1 or _i ndice a ( CONTOOR___CO LOR ] - %d\n", 

grid fiaat -> Co lor_indicea [CONTOUR COLOR]); 
printf ("color_rgba [CONTOURCOLOR] - (If If If) \n". 

grid_fiaat->color_rgba (CONTOUR COLOR) {R] , 
gridfiaat ->colo r _r g b a ( C ONT OUR'COL OR ] (C ] . 
grid fiaat ->color_rgba (CONTOUR COLOR] (B] ); 
printf C'color_indicea [VECTOR_COLOR] “ - ld\n". 

grid fiaat -> color indicea [VECTOR COLOR]); 
printf (“color_rgba [VECTOR_COLOR] - (If If lf)\n", 

grid_?iaat->Color~rgb. [VECTORCOLOR] (R] , 
grid“fiaat->Color_rgb. (VECTORCOLOR] (C] , 
grid_fiaat->color_rgba (VECTOR COLOR] (B] ); 
printf ("color_indicea [POL YGON_COLOR] - ld\n“, 

grid fiaat -> color indicea (POLYGON COLOR]); 
printf ("color_rgba [POLYGON_COLOR] - (If If If) \n". 

grid_fiaat->color_rgbi (POLYGONCOLOR) (R) , 
grid”fiaat->Color“rgbi (POLYGONCOLOR) [G] , 
grid”fiaat->color“rgbi (POLYGON COLOR] (B] ); 
print f (" co lor_l ndice* (OUTLINE_COLOR] ” - ld\n". 
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grid {if it -> color indice* (OUTLINE COLOR]); 
printf (“colorrgbs [OUTLINE COLOR) - (If If lf)\n'. 

grid_fisst->Colox rgbs [OUTLINE_COLOR] (RJ. 
grid_fisst->color - rgbs (OUTLINECOLORJ (C) . 
grid_£isst->color~rgbs (OUTLINECOLOR] (B ) ) ; 
prlntf (”color_indice* [GLYPH COLOR] ~ - ld\n’ . 

gr id_fisst -> color'indicestGLYPHCOLORJ); 
print £ (’color_rgbf [GLYPH COLOR) “ (%f If l£)\n“, 

grid_fisst->color rgbs [GLYPH COLOR] [R] , 
grid_fiaat->color - rgbs [CLYPH_COLOR] [C], 
grid_£i»»t->color“rgb» [CLYPH_COLOR] (B) > ; 
print f (’rones [CRID_TYPE ] (REG ELD] - Id ld\n’. 

gr id_f if at -> conn [GRIDJTYPE ) [REG) , 
gr id_f if at -> cone* (GRID_TYPE ) (FLD) ) ; 
printf Cionti [SCALAR_TYPE] [REG FLD) - Id ld\n*, 

gr id_f if at -> zones [SCALAR_TYPE] [REG] , 
gridfiaat -> rones [SCALARTYPE] [FLD] ) ; 
printf {’zones [VECTOR TYPE] [REG FLdT - Id ld\n’, 

gr id_f is at -> zone* [VECTOR_TYPE] (REG] , 
grid_£l*at -> zones [VECTOR_TYPE] [FLD]) ; 
print £ (’dim* [GRID_TYPE] [I J K] - I*d Id %d]\n", 

gr id_flast -> dims [GRIDJTYPE] (I) . 
grid_fi**t -> dims [GRIDJTYPE] [JJ , 
gr id_£i* *t -> d ims [GRIDJTYPE ] [K] ) ; 
printf (’dims [SCALARTYPE ] { I J kT » [Id Id ld)\n“, 

g r id_f is st -> dims (SCALAR TYPE ) [ I) , 
gr id_f if at -> dims [SCAIARJTYPE ] ( J) , 
gr id_f i* ft -> dims [SCALARJIYPE] (K)) J 
printf {’dims [VECTORTYPE) [I J K) » [Id Id Idlin’, 

gr id_f i* st -> dims (VECTOR TYPE) (I), 
gr id_f i* *t -> dims [VECTOR JTYPE ) [J] , 
gr id_fisst -> dim* [VECTOR JTYPE ] [K] > / 
printf (’ranges (I HSTART END INC CUR DIM] - (Id Id Id Id ld]\n", 
gr id_f is st -> ranges (I ] (START ] , 
grid_fisBt -> r angea [ I ] [END] , 
grid_fisst - > range* (I] (INC) , 
grid_fi*st -> r engos { I ) [CUR] , 
gr id_f if st -> r ongea [I ] [DIM] ) ; 

printf ("ranges (J) [START END INC CUR DIM] - [Id Id Id Id ld]\n", 
grid_fis»t -> range* (J) [START] , 
grld__fi*st -> range* [J] [END] . 
grid_fisst -> ranges (J) [INC] . 
grid_fisst -> ranges (J) (CUR) . 
grid_flsst -> ranges (J) (DIM)) ; 

printf (’ranges (K] [START END INC CUR DIM) - [Id Id Id Id ld)\n", 
grid_fisst -> ranges (K ] (START ] . 
gr id_fisst -> ranges (K ] (END) , 
grid_flsst -> ranges (K 1 l INC ] , 
grid fisst -> ranges (K] (CUR) , 
grid'fitst -> ranges [K] [DIM]) ; 

print f ("mircroz [CLIP] [MINI MAXI BOTTOM TOP) - [If If If lf)\n". 
grid_fisst -> rainmax[CLIP] (MINI ] . 
gr id_f is st -> minmax [CLIP] [MAXI] . 
grid_flsst -> minmax [CLIP] [BOTTOM] , 
grid fisst -> minmax [CLIP ] [TOP]) ; 
printf (’minmax [NORM] [MINI MAXI BOTTOM TOP] - {If If If lf]\n", 
grid fisst -> minmax[NORM] [MINI] , 
grid'flsst -> minmax(NORM) [MAXI] , 
grid_fisat -> mi nmax [NORM )[ BOTTOM) , 
gr id_f is at -> minmax[ NORM] [TOP]) ; 
printf ("fiald_ids [GRID IBLANK SCALAR VECTOR] « [Id Id Id Idlin', 
gridfisst -> field Ids (GRID ID). 
grid_fisst -> field'id* [ IBLANK ID), 
grid fisst -> field - ids [SCALAR - ID) , 


paneis.c : 


gridfisst -> fieldids [VECTOR ID)); 
print f (* f ield_ida [ I: START END MID ZONE) - [Id Id Id Idlin’, 
gridfisst -> fie ld_ids [START I NORM ID], 
grid fisst -> field_ids [EN9_I _ NOIW_ID}, 
grid - fisst -> fieldids [MID_I _ KORM_ID] . 
grid - fisst -> field_ids [ZONE I NORM ID1) ; 
printf ('£ield_ida (J: START END MID ZONE) - [Id Id Id Id] In’, 
grid fisst -> field ids (STAHT_J_NORM_ID ) . 
grid - fisst -> field'ids [ END_J_NORM_ID ) , 
grid - fisst -> field id*(MID_J - NORM - IO). 
grid - fisst -> field - ids (ZONE_J_NORM ID)); 
printf (” fie ld_id» (K: START END MID ZONE] - [Id Id Id Idlin’. 
grid_flsst -> field ids (START_K_NORM_ID J . 
grid~£iaat -> £ield_ids [END_K_NORM_ID ] . 
grid” fisst -> fieldidf (MID_K_NORM_ID), 
grid - fisst -> fieldidf (ZONEK NORMID]); 
printf (’ fie ld_ids [CONTOURS] - [ld)\n", 

grid_fisst -> f ieldids (CONTOQRSID) ) ; 


print f {“num_contourf 

grid_fis»t -> num_co nt ou r s ) ; 
printf (’contours inc 

grid_fisst -> contours_inc) ; 
printf {“contour *_min 

grid_fisst -> contours_min) ; 
printf {’contour s_max 

grld_fisst -> contour s^max) ; 
printf (“num_con_point s 

grid^fisst -> num_con_point s) ; 

printf {’In’) ; 


• Idln’, 


• END OF dump_state - 


j/*++ static wold re*et_atate( int reset_actuatora ) 

* PURPOSE: 

* Reaata tha contents of the grld_fisst structure to the defoult 

* state (empty) and halts looping. If rasst_actuotors is 1 then 

l * the actuators will be reset to their default states. 

J * AUTHORS: 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 

6/89 


paneis.c 


INPUT PARAMETERS: 
int 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED: 

extern Gr id_Surface* 
extern Main_Acts 
extern Mlnmsx_Acts 
extern SceleCroup* 

FILES USED: 


> NON-STANDARD CODE : 


. actuotor* 


let actuators too? 


grid_flast 

moin_oets 

minmax_acts 

*cole_group 


* CALLED BY : 


> FUNCTIONS CALLED : 


extern void clear_typeout ( ) 

extern void fix_color_panel() 

extern void set_typein_fval() 


void 

void 

void 

void 


lock_cur_object () 
unlock_cur_object 0 
update_legend () 
de let e_nor male () 
set_defoult_color S I) 
copy _co lor s () 


— */ 


/* — raset_ateta — 

static void rssot_itota( int raset actuators ) 

[ 

Actuator* to; 

int i; 

int j; 


declared in this file 
dafined in this file 
defined in this file 
defined in this file 


libpanu 

libpanu 

defined In this file 
defined in this file 
defined In this file 
defined In this file 
defined In this file 
defined In this file 


/* temp act pointer 
/* 1st loop indsx 
/* 2nd loop index 


nu_group. reset_select ions, 0) ; 
i_group. reset ^select ions. 


ACCESS! (main_acta . rander_i 
/* reset attributes manu */ 

ACC ESS 3 (main_acts .attributes * 

/* raset options menu */ 

ACC ESS 3 (main_octs .opt ions_menu__group, reset selections, 0); 

/* delete normals */ 
daleta_normala () ; 

/* deleta contours */ 
delete_contoura () ; 

/* reset loop buttons group */ 

ACC ESS 3 (main_acts . loop_buttona_group. reset_seleet ions , 0); 

/* reset slider buttons group */ 

ACC ESS 3 (moin_acts . al idar_button*_group, raset_aelections, 0); 

/* reset surface buttons group */ 

ACC ESS 3 (main_actt . surf oce_but ton i_group, reset_selectlons. 0) ; 

/* reset rone typein group */ 

ACCESS! (main_actf . zone_t ypein_group, set_ivalue, 0. 0); 

/• reset slider group */ 

ACCESSS (mnin_octs . si ider_group, aet_fvaluaa, I, *lider_group_volue* [I] , 0 

ACCESS5 (main_octs .slider_group. »et_£value*. J. *lid*r_group_veluea [J] , 0 

ACCESSS (moin_actf . slider_group. set_fvalues. K. slider_group_valuea{K] . 0 

ACCESS! (main_act* . si idar_group , Bet_aelect ions , slider_group_selections , 

ACCESS2 (main_acti . slider_group, hide_select_buttons) ; 

ACCESS! (main_acts . slider _group . *et_dir action, K, 0); 

ACC ESS 3 (ma in_acts . slider_group. hlghlight_slider, MID); 

/* data info typeout */ 

clear_typeout (maln_acta .data_info typaout) ; 


/* if callad from tha button, fix actuators to reflect state •/ 

if (reset actuators w 1) 

I 

/• rsast type menu */ 

ACCESS3lmoin_aets.type_menu_group, reaet_i«lect ions , 0) j 
/* reset render menu */ 


/* vector panel's scale group */ 

ACCESSS (sea le_group. reaet_values. 0); 

/* draw button •/ 

main_oct ■ .draw objoct button -> val ■ 1.0; 
pnl_fixact (maln_octa .draw_objact_button) ; 



/* c: 


reset scalar minmax: */ 

:llp. norm, ond legend minmox typeins */ 


\ 


set_typein_fval (minmax_acts.clip_top_typein. 0.0. 

PLOA7 STR1 HC_F ORMAT ) ; 

set_typein_fval (rainmax_acts.clip_bot_typein. 0.0, 

FLOAT S TRI HC_F ORMAT) ; 

set_typein_fval (minmoxoct s.norro_top_typeln. 0.0. 

F LOATS TRI HG_F ORM AT ) ; 

•et_typein_fval (mlnmax_acts .norm bot_typein, 0.0. 

F LOATS TRI NG_F ORM AT ) ; 

«at_t ypein_f val (ml nmax_acts . legend_max_typein , 0.0, 

FLQAT_STRINC_FORMAT> ; 

* et_t ypa in_f wa 1 (ml nmax_acta . legend_min_typein. 0.0, 
FLOAT_S T RI NC_F ORMAT ) ; 

/* clip and norm multisliders */ 

ta = mlnmax_acts .clip_nultislider; 
ta = ta -> al; 
to -> ext val - 1.0; 

s print £(ta -> label, FLOAT_STRINC_FORMAT, 0.0) S 
to ■= ta -> next; 
ta -> ext val - 0.0; 

Sprint f (ta -> label, FLOAT_STRING_FORMAT, 0.0); 
pnl_f ixact (mlnmox_acts .cl ip_mult is lider ) ; 

ta = minmax_acts.norm_multislider; 
ta ■= ta -> al; 
ta -> ext val - 1.0; 

■ print £(ta -> label. F LOAT_ST RI N G_F ORMAT , 0.0); 
to = ta -> next; 

to -> ext val » 0.0; 

■ print £(ta -> label, FLOAT STRING F ORMAT. 0.0) ; 
pnl_f ixact (minmox_act ■ .norm_multislider) ; 

/* restore default mlnmax modes */ 

nlnm)i_octi .out ominmoxnpdat e_button -> val “ 1.0; 
pnl_fixnct (minmax_octs .outo_minmax_updote_button) ; 

minmax_acts . update_mlnmax_slider s_button “> val “ 1.0; 
pnl_f ixact (minmax_octs .update_mlnmox_sliders_button) ; 

minmax_acts . invert_clip_te»t_button -> val “ 0.0; 
pnl_f ixact (mlnmax_act« . invert_elip_te«t_button) ; 

fix radio_button« ( minmax_octs .made_buttons. 

NUMSCALARMI NMAXMODES . 
MULTI_ZONE_MINMAX ); 


lock_cur_object () ; 

/• reinitialize the grid surface data structure ‘ 
mams at ( grid_fiaat. 0. alreof (Gr id_Sur face ) ); 


grid_fisst -> object_type 
grid_flait -> surfoce_mode 
grid_fisst -> type 


- CRID_SURFACE; 

* SINGLESURFACE; 
« GRID TYPE; 


■ I' 


grld_£iast 
grid_fisa1 
grid_fis il 
grid_flas1 


-> render_mode - LINES_1_2; 

-> sea le_£ actors [VECT OR_SCALE) “ scale_qroup_values (0] ; 

-> SCO le_f actors [ FRAME_SCALE] = scole_qroup_va lu es [ 1 ) ; 


_ ; -> contour_color_type 

grid_flaot -> vect or_color_t ype 
grid_fisst -> vect ©r_tip_t ype 
grld_£isst -> direction 
qrld_£i**t -> ranges [ I )( IHC) 
grld_£i*st -> ranges (J) (ISC) 
grid_fisst -> ranges (K) (INC) 
grid_fisst -> minmax_mode 

for (i » 0; i < N0M_GS_FIELD_1DS; ++i) 
grid_f i sst -> £ield_lds(i) 

for (i - 0; i < 3; ++i) 
for (j * 0; j < 3; ++j) 

grid_fisst -> boundar y__f logs |i) ( j) 


= SCALARCOLOR; 

- CONSTCOLOR; 

- NOTIP; 


grid_£is it 
grid^fis st 
grid fiist 
q rid_fi»st 
qrid_f is st 
qr id_fisst 
qrid_fisst 
grid flsst 


> shaded 

> cllp_mode 

» loop_mode « loop_mode 

> loop_dir 

> loop_aurface 

> lcoptone 


■ HULTIZONEMINMAX; 


* 1; 

■ DEFAULT _SH AD INC; 

* STRAIGHT_CLIP; 

* loop offT 

* LOOP_FORXARD; 

* MID; 

* SINGLE ZONE; 


■ 40; 


grid^fisst -> reset_to_rone » 1; 

grid_fisst -> shew_looping • 1; 

qrid_fi*st -> auto_minmax_updat e “ 1; 

grid_fisst -> updote_minmox_slider s * 1; 

unlock_cur_ob ject () ; 

/• reset colors */ 

set_defoult_colors 0 ; 
f ix_color_penel () ; 
copy_colors () ; 

/* clear legend values */ 

update_legend(0.0, 0.0, minmax_oct s . legend_labels) ; 
/* Update data */ 
updote_f ld_dato_ponel () ; 


■ END OF reset state - 


pane|s.c: : 


ill! 


/*++ static void surfoce_buttons_£unc ( int row, int col, lnt state ) 

* PURPOSE: 

* Handles setting the current surface button selections for 


* AUTHORS: 


Todd Pleasel 

NASA Ames Research Center 
Sterling Software 


REVISION HISTORY: 

9/90 

12/90 

4/91 

INPUT PARAMETERS: 


lnt col 

int ste 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED: 
FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


static void surfacs_butto: 


selected butto: 
selected butto: 
selected butto: 


— surfa ce_buttons_func 

>_func( int row. int col, int state ) 


interactive *= 1; 

load_eofimand< surfaceJ»Uttons_script_conmands (0), 

■ □rface~buttons~seript_coinT>and» (1 +col) ); 


- END OF surface_butt ons tone - 


illlSlgsi 


Hf static void set_surface_buttons_func ( char* script^omnand ) 
PURPOSE: 


Todd Plassel 

NASA Ames Research Center 
Sterling Software 

REVISION HISTORY: 

9/90 
12/90 
4/91 

INPUT PARAMETERS: 

char* scr ipt_command script consnand or actuator 
OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED; 

extern Grid_Sur face* grid_fisst 
FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 

CALLED BY s 
FUNCTIONS CALLED : 


declared in this file 


extern int corrmand index () 


int 


libpanu 


lock_cur_ob ject 0 defined in this file 

unlock_cur_ob ject () defined In this file 


/• *et_»urface_buttons_func — »/ 

static void set^sur face_buttons_f unc ( char* scr ipt_conrnand ) 


OftIGiMAl PA GE SS 


OF POOR QUALITY 



taiwit 


pariels.c: 


poram[32); 

aalactiona [NUM_SURFAGE_BUTTONS) ; 
index; 


poraa_comrr»nd ( acr ipt_conrnand, "la", param ); 


if ( ( index “ cwmund index! param, aur face_buttons_ecript_conrnand« . 
KUM_SURFACE_BOTTONS + 1 ) ) — -1 ) 




— indaic; 

lock_cur_object () f 
gzid_fiaat -> aurface_mode ■ 
if ( I Intar act ive } 


I 


■elections. 0. alzeof aalactiona ); 
aalact iona (grid_fi aat -> aur £ace_mode] “ 1; 
ACCESS* ( mein_acts . aur faca_buttons_group, 
aataalact iona , aalactiona, 0 ); 


dalata_contour a () ; 
unlock_cur_ob ject 0 ; 

/* show tha aalact buttona if boundary a 
if ( indax — BOUND ARY_S URF ACES ) 

I 

ACCESS2 ( maln_octt . alidar_group, ahow_aalact_buttona >; 




alaa /* hida them */ 

I 

ACCESS2 { ma intact a . alidar _group, h ida ialact buttoni ); 


- END OF aat aurfsca buttona func - 


-+ atotic void alidar_buttona_£unc | int row, int col, int atata ) 
PURPOSE: 

Handlaa setting tha currant alidar button aalactiona. 

AUTHORS: 

Todd Plaaaal 


NASA Ames Raaaarch Cantar 
Sterling Softwara 


REVISION HISTORY: 


convartad to button group call-back 


INPUT PARAMETERS: 


int 


int 


aalactad button* a row 
aalactad button* a column 
aalactad button* a atata (0 or 1) 


OUTPUT PARAMETERS: 
FUNCTION RETURN: 

GLOBAL VARIABLES USED: 


FILES USED: 


NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 


— V 

/* slider_buttona_fune — 

atatic void alidar buttona func( int row, int col, int atata ) 

I 

interact iva - 1} 
witch < col ) 


t 


coaa 0: load_conxnand ( "SLIDER_ACTION la”. "RESET" ) ; break; 
caaa 1: load_conmand< "SLIDER_ACTION It la”, "RESET ZONE", 

ON_OR~OFF (atata) > ; 

break; 

caaa 2: load conmandt "SLIDER_ACTION la la". "SHOW LOOPING". 

ON_OR~OFF ( atata) ); 

break; 

default: intaractiva - 0; breok; 


) OF alider_buttona_func - 


panels .c 




►+ atotic void aet_alider_buttoni_£unc( char* acrlpt_< 

PURPOSE: 

Kandlea aatting the currant alidar button aalactiona. 

AUTHORS: 


Todd Plaaaal 

NASA Am* a Raaaarch Cantar 
Starling Softwara 


REVISION HISTORY: 


9/90 

12/90 

5/91 


INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

Nona 

GLOBAL VARIABLES USED: 


:ipt_commond script conmand or actuator 


grid_fiaat; 

ahow_looping 


FILES USED: 

Nona 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 


int 


int 


lock_cur_ob ject 0 
unlock_cur_ob jact 0 
reaet_i jk_rangaa 0 


defined in thio file 
defined in thia file 
defined in thia file 


■ aat alidar button! func - 


atatic void aat a lidar_button« func ( char* acript_comnand ) 


param (16] ; 
cval ( 8] ; 
aalactiona {3} ; 


par te_coRmand ( acr ipt_command, "la", param ); 


if ( iticaatcnp( param. "RESET" ) *■ 0 ) col ' 

alaa if ( it;Costcnp( param. "RESE7_Z0NE" ) «• 0 ) col « 

alaa if ( atrcaaacng>( param. *SHOW_LOOPING" ) — 0 ) col > 

alaa | intaractiva ■ 0; return; } 


lockcurobjact () ; 

twitch ( col ) 

\ 




pa r secommand ( acr ipt_command. "la la", param. cvol ) f 
grid_fiaat -> raaat_to_rona - 0N_0R_0 FF_val ( cvol) ; 
break ; 


porae_command( acript_ceitmand, "la la", param. cvol ); 
ahow_looplng - ON_OR_OFF_VAL( cval ) | 
grid_£iaat -> ahow_looping ■ ahow_looping; 


if ( 1 intaractiva ) 


aalactiona (0) « 0; 

aalactiona [1] ■ grid_£iaat -> reaet_to_zone; 
aalactiona [2] “ ahow_looping; 

ACCESS4 ( moin_oct a .a lider_buttona_qroup, 
aat_ielect iona, aalactiona, 0 ); 


intaroctiva “ 0; 
unlock_cur_objact () ; 


■ END OF aet_alider buttona func - 


/*++ atotic void loop_buttona_func ( int row, int col. int atata ) 

• PURPOSE: 

* Handles aatting tha currant loop button aalactiona . 


ORIGINAL PAGE K5 
OF POOR QUALITY 










ipancis:t;i/ : ?f j; 


<*=•¥ 




Todd Pleaael 

NASA Amaa Raaaarch Cantor 
Starling Software 


‘ REVISION HISTORY: 


converted to typein group call-back 


> INPOT PARAMETERS: 

int no* 
0 OTP 07 PARAMETERS! 

Nona 

FUNCTION RETURN : 

Nona 

GLOBAL VARIABLES USED: 
FILES USED: 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


now zone value to aat 




atatlc void tone_func< int new_zone ) 


/*++ atatlc void eet_rone_func ( chor* acr ipt_eommand ) 


Handlaa vetting the current zona. 


Todd Plaaaal 

NASA Amaa Raaaorch Canter 
Starling Software 


REVISION HISTORY: 

9/90 

12/90 

5/91 

INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 
None 

FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


acript_commond acript com m and or octuator 


aet_fld_dat a aalactlon () 
update_f ld_dat a_panel 0 


llbfldpan 

llbfldpan 


atatlc void i 


int 


_zone_func( chor* a 


t ipt_eonsnand ) 


paraa_command{ acr ipt_command. *%d". I ntvzona }f 
/* aelect the new grid and update data */ 
aet_f ld^dat e at lect ion ( GRID, 0, new_zona ) ; 

/* thia will invoke the call-beck function: data_aelect 0 */ 


panels. c 


update fid data_panel()> 
if ( j interactive ) 

t 

lock_cur_ob ject 0; 

ACCESS* ( main acta . zone_typein_g roup, aat ivolua, 

~ grid_f 1 a at -> rone a [CRIDTYPE] ( FLD ) , 0 J ; 
unlock cur object Of 

I 

interactive « 0; 


- END OF aet : 


/*++ atatic void i jk_rongee_func ( int dir, float rangaa[S) ) 

* PURPOSE: 

* Adjuata the I JR congee baaed on the elider 

* a peci fleet ion* , 


Todd Pleeeel 

NASA Ama l Research Center 
Starling Software 

REVISION HISTORY: 

4/89 

12/90 converted to alider group call-back 
INPUT PARAMETERS: 


int 

float 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 
FILES USED: 


I/J/K 

START/END/ INC/CUR/DIM 


* NOTES: 

' NON-STANDARD CODE : 

* CALLED BY : 

’ FUNCTIONS CALLED s 


- i jk_rengat_fune - 


atatlc void ijk range ■ func ( int dir, float range a (5) ) 

( 

atatlc char* dir atrl3] *■ ( *1", "J", "K* 

atatlc char* elider_etr[5) - | “START" , "END". “INC", "CUR”. "DIM" J; 
int a. plane; 

loek_cur_ob ject <) i 

interactive » 1; 

for < a ■ 0; a < 5; ++e ) 

) 

plane ■ ROUND { rengea(a) }; 

if ( plane I “ grid_fieat -> range* (dir ] [a ) ) 
loed_co;nnand ( "SLIDER «e »e W. 

dlr_atr (dir) . ■ lider_atr [a ) , plana ); 


unlock_cur_ob jact () ; 


- END OF i jk_rongaa_func 


atatic void eat_ijk_rengee_func< char* ecript_conmand ) 
PURPOSE: 


Adjuata the IJK rangea baaed on the alider 
epeei fleet Iona from a acript command 


Todd Pleaael 

NASA Amaa Raaaarch Cant 

Starling Software 


REVISION HISTORY: 


4/89 

12/90 converted to alider group call-back 
4/91 P. Kelaita -- added cortmand handling 


INPUT PARAMETERS: 


ORIGINAL F'AGE IS 







mama 


*V.W.V.V*'.WW%%V.V#V 


panels;c 


Todd Plesael 

NASA Amea Raaaarch Cantor 
Sterling Software 


REVISION HISTORY: 

1/90 

INPOT PARAMETERS: 

Nona 

OUTPUT PARAMETERS: 
FUNCTION RETURN: 

GLOBAL VARIABLES USED: 

extern Gr: 
axtarn Ma: 

FILES USED: 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


int 

int 


lock_cur_object () 
unlock_eur_ob jact () 
updat a_dat a_in f o ( > 


defined in thia file 
defined in thia file 
defined in thia file 


-*/ 


reaet^i jk_rangea 

atatic void raaat ijk rongea ( void ) 

l 

full raaat « 


int 

int 

int 


dir; 

atart; 

end; 

min; 

temp (201; 


/* raaat to full dima? 
/* direction: I, J, K 
/• atarting I. J, K 
/* ending I. J. K 
/* dimension: I. J, K 
/* 1 or 0 if dim ia 0 
/* to check bottona 


/* check if thia ia a full or partial raaat */ 

ACC ESS 3 (main_act a . a 1 ider_buttona_group, get_aelect iona . t erp); 


f u 1 1 _r e a et * teng>[l); /* raaat when rone changaa? ’ 
lock_cur_ob jact () j 

/* loop on direction and raaat each component */ 

for ( dir “ 0; dir < 3/ ++dir ) 

( 

/* aat the dimanaion of the range */ 

dim - grid_fiaat -> dima (GRID_TYPEJ (dir ] ; 
grid_fiaat -> rangaa (dir ] (DIM] -dim; 


/* if the dimanaion ia zaro tl 
if ( dim ■» 0 ) 

I 

gridfiaat -> rangaa [dir ) (START] 
grld_fiaat -> rangaa [dir] (END] - ar 
grid_fiiat -> rangaa [dir ] [INC ] = 1; 

grid fiaat -> rangaa [dir ) (CUR] “ 0: 

I 

/* alaa if thia la a full raaat than do it 1 

elaa if ( full raaat “ 1 ) 

1 

grid_fiaat -> rangaa [dir ] (START] 
grid^fint -> rangaa [dir ] [END ] 
grid_flaat -> rangaa [dir ][ INC ) 
grld_fiaat -> rangaa [dir ] [CUR] 


> out othar component a 


ROUND ( dim / 2.0 ) ; 


/« elaa < 
alaa 


ily change if out-of-bounda •/ 


' only make changaa required to have 
' 1 <» atart <* cur <“ and <- dim and 
' 1 <- ine <■ dim 

• note: LIMIT_TO(a, min, maxi inauraa that 


min - MIN (1 . dim); 

LIMIT_T0[ grid_fiaat -> 
atart » grid fiaat -> 
LIMIT JTO( gr id~f iaat -> 
and =~ grid~fieet -> 
LIMIT_TO[ gr ld_f iaat -3 


|aa [dir] [START], min. dim ); 
|aa[dir] (START); 
lea [dir] [END], atart, dim 1 ; 
[dir] [END]; 

iaa [dir ] [CUR], atart, and ); 


LIMIT JTOJiAX ( gridfiaat -> rangaa [dir] [INC] , dim ); 
LIMIT JT0__MIN ( gr id_fiaat -> rangee (dlrl [INC] . 1 )» 


updata tha alidera */ 


ACCESS5 t mo Intacta .alidar_group, 

»et_ivolue». I, grld_fia at ■ 


rangaa [I] , 0 ) ; 


panels.c 


ACCESS5I main acta .a lider_group, 

aat_lvaluaa, J, grid_flaat -> rangaa(J), 0 1; 
ACCESS5I main_acta . a Ildar group, 

aet_lvaluei, K, grid_£iaat -> rangaa [K], 0 1; 

dalete_contoura () ; 
unlocfc_cur_ob jact <1 ; 

/* updata data info typeout */ 
updata_data_info 0 ; 


> OT reaet_i jk_rengea • 


■ atatic void dota_aelect [ int type, int rag__i 
FLDDatoPtr £ld_dato_ptr 1 


Thia routine ia called from Surfer' • fid data penal. 


Todd Plaaaal 

NASA Amea Raaaarch Canter 
Starling Software 


REVISION HISTORY: 
9/89 

INPUT PARAMETERS: 

int 

int 


OUTPUT PARAMETERS: 

FUNCTION RETURN: 

Nona 

GLOBAL VARIABLES USED: 


GRI D , SOLUT ION, SCALAR, VECTOR 
number of reglater aelected 
number of field aelected 
-> fid dato atructura 
containing info about thi 
aelected data. Or thia ci 
be NULL indicating a raaat 
affecting tha given type 


Id 


extern int 
FILES USED: 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 

extern void 

void 

void 

void 

void 

void 

int 

int 


minmox_acti thia file 

grid_fiaat defined in thia I 

update_actnatora_mode; declared in thia 


ae t_t ype i n_i va 1 ( ) 
up dot e_dima O 
reeet_date O 
reeet_minmax 0 
de let e_normel a () 
updat a_data_info () 
lock_cur_ob jact () 
onlock_cur_object () 


llbpanu 

defined in thia 
defined in thia 
defined in thia 
defined in thia 
defined in thia 
defined in thia 
defined in thia 


file 

file 

file 


■ data aelect - 


atatic void datable lact ( int type, int reg_num, int fld_num, 
FLDDataPtr fld_data_ptr ) 


n*iat_dalete_normole - 0; /* 
new_aca lar_f ield - 0; /* 


nly if data changed * 
nly if data changed • 


* check if the data ia NULL, if ao thia indlcatea that a 

* aelection wai on a fiald that la no longer available (and 

* tha fid data panel automatically updated lta typeouta) but we muat 

* now coll Surfar'i own raaat data function and pan type 

* to indicate that the reaet perteina only to thia typa 


if I £ld_doto_ptr 


aalected ao awltch on the type */ 


» 

lock_cur_ob ject () ; 

/* otherwiae a field waa 

awltch ( typa ) 

[ 

caae GRID: 

/* updata grid a 


grld_fieat -> zone a [GRID_TYPE] [FLD ] - fld_num; 

ACCESS* ( main_acta . rone_typein group, aet lvalue, fid r 


/* copy grid data id into grid a 




OF POOR QUALITY 


mmm 

XwXvXvX-X'Xv 


pariels;c 



if ( grid_fi.it -> field id.(GRID_ID] 1= 
fld_data_ptr -> fi.Id id.lVFJ ) 

I 

nu.t_d*l*t* normal. “ 1; 
grid_fl..t -> fi.Id id. [GRID_ID ) - 

fld_dato_ptr -> fi.ldidi [VF J ; 

\ 

/* copy grid iblanking data id */ 

if ( fid data _ptr -> attribute* ( IS_IBLANKED] > 

I 

gr id_fl.it -> field_id.{IBLANK_ID] - 

fld_data_ptr -> fi.ld_id. [ ISFJ ; 

I 

• 111 

l 

gr id_f i.st -> fi.Id id. [ IBLANK_ID] - -1/ 


/* update ton. info in grid anrfac. itruct */ 

grid_fi.it -> rone. {VECTOR TYPE] (REG) - r.g_mun? 
grid_fi.it -> zone. (VECTOR - TYPE) (FLD) - fld_nun>; 

/« copy vector data id into grid lurfoc. itruct ur. */ 

if ( grid_fil.t -> fi.ld_id. (VECTORED] !- 
fld_data_ptr -> fi.Td_id. (VF] ~ ) 

if ( grid fint -> typ* = vECTOR_TYPE it 
USES_NORMALS (grid_fi.it) “ ) 

t 

mu»t_d*l*t*_normal. “ 1; 


grid fil.t -> fi.Id id. [VECTORIDJ = 
f ld_dato_pt r->field_id. {VF] I 


if ( 1 HATCH D IKS (grid £i.«t->dinm (GRIDT YPE i , f ld_data_ptr->dima) ) 

I 

mu.t_d*let*_norma 1. - 1; 

update dims (GRID_TYPE , fid data_ptr -> dim*); 

I 

break; 

case SCALAR: 


/* update thi dim. */ 

if ( 1 MATCH DIMS (grid fii»t->diro» [VECTORTYPE ] , f ld_data_ptr->dimi ) ) 

I 

if ( gr id_f ii it -> type =- VECTOR_TYPE 14 

USES_NORMALS (gr idfia it) ) 

l 

mu.t_d.lete_normols — 1; 


/* update rone info in grid surface struct */ 

grid_fi.it -> zones (SCALAR_TYPE) [REG) ■ regrmm; 
grid_fi.it -> zone. [SCALAR_TYPE] [FLD) - fld_num; 

/* copy scalar data id into grid surface structure */ 


if 

{ 


I 


grid fi.lt -> fieldida [SCALARID] 1- 
fld_data_ptr -> fi*ld_id.[SF] - > 

n*w_aco lar field - 1; 
grid_fl.at”-> fi.ld_id. [SCALAR_ID1 = 
fld_data_ptr->fi.ld_id. [SF]; 


/* update the dim. */ 

if UMATCH O IMS (grid fi.«t->dim« [SCALAR_TYPE ) , fld_data_ptr->dimi ) ) 

( 

update dim. (SCALAR_TYPE, fld_data_ptr -> dim.) ; 

] 

/* if in auto update mode then re.et the .color mi tuna* */ 


update dim. (VECTORTYPE, £ld_data_ptr -> dims); 

I 

/* if in outo update mode then re.et the scalar minraa* */ 

if ( grid fil.t -> type — VECTORTYPE ) 

( 

if ( minraa*_act. .auto_minma*_updot*_button -> val =» 1.0 ) 

( 

re.et_minma* { ’R.ESETM INMAX LEGEND’ ); 

I 

] 

break; 
default : 

return; 

I 

/* if needed, delete any old normal, and contour, data if it exist. */ 


if ( minmax_act . .outo_minmax_update_button -> val ™ 1.0 44 
( I update ectuator. mode | | n*w_.calar_f ield ) ) 

I 

re.et minmax( "RESET_MINMAX LEGEND’ ); 


break ; 


if ( nu.t_delete_normal. ) 

/* re.et thi. mode to allow normal, to be deleted */ 

update_actuator._mode - 0; 
del eta_nor trail () ; 
delet._contour. <) ; 

I 


case SOLUTION : 



/* update the contour data if need be */ 

if ( grid_fi..t -> render_mode “ CONTOUR_L INES ) delete contour s <) ; 
/* update the data info typeout */ 
update_data_info 0 ; 
unlock_cur_ob ject () ; 

I 

/• end OF data .elect */ 


panels. c:;: 

* NOTES : 

* NON-STANDARD CODE : 



CALLED BY : 

FUNCTIONS CALLED : 

1 ibpanu 
Ubponu 
libfldpan 

defined in thi. file 
defined in thi. file 
defined in thi. file 


extern void 
extern void 
extern void 
vo id 


clear_typeout () 
«et_typeout_fval () 
update_f ld_data panel!) 
de lete_norma 1. () 
lock_cur_ob ject () 
unlock_cur_object () 


re.et_data — * / 

static void re.et data* int type ) 

I 

Actuator* t a; /* temp act pointer •/ 


/*♦+ static void re.et_data( int typ* ) 

« PURPOSE: 

* Re.et. the zone dote of the indicated type 

« in the grld_fi..t structure to the dafoult state (empty) . 

* AUTHORS: 

* Todd Plea.el 

* NASA Am*. Research Center 

* Sterling Software 

* REVISION HISTORY: 

* G/89 

* INPUT PARAMETERS: 

« int type CRID. SCALAR. VECTOR 

* OUTPUT PARAMETERS: 

* Non* 

* FUNCTION RETURN: 

» Nona 

* GLOBAL VARIABLES USED: 

* extern Grid Surface* grid_fi.>t declared in this file 

* extern Main Act. maln_ect. this file 

* extern Minmax_Acts minmax_oct» thi. file 

* FILES USED: 

* Non* 


); 

>; 


0) ; 


/» reset zone data: clear appropriate register, and fields: */ 

if ( typ* — CRID ) 

( 


/* delete normal. »/ 
del*t*_normal. () ; 

/* delete contour. */ 
d*l*t*_contour« O ; 

/* re.et zone typein group •/ 

ACCESS* ( mainact ■ . zon*_typ*in_group 
/* re.et slider group */ 

ACCESS* (main_act ... 1 id*r_group , »*t_ 
ACCESS* (main_«ett . »lid*r_group, i*t_ 
ACCESS* (ma in_«et • .slider _g roup, «*t_ 
ACC ESS 4 (main_acti . aliderjgroup, *et_ 


, aet_ivalue, 

f value*, I. a 
f values, J. a 
f values, K, . 
■elections, s 


0. 0 ); 

illder_groop_valu*. 1 1). 

1 ider_group_value. (J), 
ilider_group_valu*. [K] , 
ilid*r_group_**l*ction». 


0 

0 

0 


/* data info typeout */ 

cl*ar_typ*out (main_oct ■ . dato_lnfo_typeout ) ; 

/* reinitialize part of the grid surface data structure */ 
lock_cur_ob ject |) ; 


grid fisat -> dim. [GRID TYPBJUI •> 0; 

grid - fi..t -> dim. [CRID - TYPE] | J) - 0; 

grid~fi.it -> dim. {CRID - TYP£1|K) - 0; 

grid_fi..t -> range. (I] [START] - 0; 

grid_£ia.t -> range. [ X ] (END) - 0; 





panels.c 


grid_fi*st 
grid_fi**t 
grid_f last 
geld fiast 
gridfint 
grid” fint 
grid - flsat 
grid - fiaat 
grid_flaat 
grid - £i* at 
grid_fia at 
grid_fi**t 
grld_fiaat 
grld_fi*st 
grid - fi**t 


> ranges (X} 

> rangaa(I) 

> range# (I) 

> range* [J) 

> range* [J] 

> ranges [J] 

> range* [J) 

> range* [J] 
-> ranges [K] 
-> range* [ K ] 
-> range* [K] 
-> range* [K] 
-> range* (K ] 
-> fleldida 
-> £leld_id* 


IINC) 

]CUR] 
tDDJl 
(START ] 
(EKD1 
(INC] 

(COR] 

(DIM] 

[START] 

[END] 

[INC] 

[CUR] 

[DIM} 
[GRID_ID} 
[IBLANK ID] 


- 0; 
- 0; 
- 0 ; 
= 1; 
= 0 ; 
- 0; 


unlock_cur_obj#ct () ; 

£ ( type =« SCALAR ) 

/* delete contour* */ 
delet *_contour* O; 

/* reinitiallre part of the grid surface data »truetur* */ 
lock_cur_ob jact 0 ; 


grid_£i**t 
grid_fia*t 
gr id_£iaat 
grid_£i*at 
grid_fi»*t 
grid_£i*it 
grid_£i*at 
grid_£iaat 
grid_£iaat 
grid_fi*st 
grld_fi*at 
grld^fiast 
gr id_£i* at 
grid_£i*»t 


► ron**[SCALAR_TYPE] [REC] 

► rones [SCALAR_TYPE] [FLD] 

► dims [SCALArJiYPE] (I) 

► dims [SCALARJT YPE) [J] 

► dim* [SCALAR TYPE] (K) 

► minmax [CLIP ] [MINI ] 

► minmax (CLIP) [MAXI] 

>■ minmax [CLIP] (BOTTOM) 

► minmax [CLIP] (TOP) 

► minmax [NORM] (MINI) 

► minmax [NORM] (MAXI) 

► minmax [NORM] [BOTTOM] 

► minmax [NORM] [TOP] 

► fieldid* [SCALARID] 


- 0 . 0 ; 
- 0.0; 
- -1; 


/* update and redraw the slider* */ 

update_minnax_* lider ■ (gr id__fi**t -> minmax. LEGEND); 
update_rainmax_* lidera (gr id_f i»»t -> minmax. CLIP); 
update_minmax_» lider* (grid_fi»st -> minmax, NORM); 

unlock_cur_ob ject () ; 

E ( type « VECTOR ) 
lock cur_obj#ct () ; 

/* if vector shaded surface deallocate any normal* data */ 

if ( grid_fl»*t->type — VECTOR 41 OSES NORMAL S ( grid_£isst 
( 

delete_normals () ; 

] 

/* reinitiallre part of the grid surface data structure */ 


grid_£i**t -> rones [VEC70R_TYPE] [REG] 
grid” £i*»t -> zone* [ VECTOR! YPE] (FLD) 
grid” £l**t -> dim* [ VECTOR_T YPE ] [I] 
grid” £i**t -> dim* (VECTOR_TYPE) [J] 
grid - £i**t -> dim* [ VECTOR_T YPE ] [K] 
grid” fi**t -> £ield_ld* [VECTOR_ID] 

unlock_cur_ob ject () ; 


END OF reaet_date ■ 


►+ static void vector_*cale ( int index, float nowjvalue ) 
PURPOSE: 

Sete the vector or frame scale value to this i 

AUTHORS: 

Todd Pleaael 

NASA Amea Research Center 
Sterling Software 


REVISION HISTORY: 


11/90 

12/90 converted to scale group call-back 


INPUT PARAMETERS: 

int 

float 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

None 

GLOBAL VARIABLES USED: 
FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 


panels.c 


.W.V.V. . . 


* CALLED BY : 

* FUNCTIONS CALLED : 


vector_*cale 

tic void vector_*cale ( int index, float new_value ) 


interactive « 1; 

load_corrmand( scale__group_scrlpt_coRinanda (index] , new_value ); 


- END OF vector scale 


/*++ static void **t__vector_*col*( chor* *cript_commond ) 

* PURPOSE: 

* Set* the vector or frame scale value to this new volu< 

* AUTHORS: 

Todd Plesael 

NASA Ames Research Center 
Sterling Software 


REVISION HISTORY: 


11/90 

12/90 converted to scale group call-bock 

5/91 converted to scripting 


:ript comnand icript command or actuator 


INPUT PARAMETERS: 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

Non* 

GLOBAL VARIABLES USED: 

extern Grid Surface* grid_fi**t 

FILES USED: 


defined in this file 


NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 

int 

int 


lock_cur_obj*ct () 
unlock_cur_obj*ct () 


/* **t_v#ctor_*cal* 

static void aet_vactor_scal* ( char* script_command ) 

( 

float naw_value; 

int index; 

char connund[32] ; 

•aconf { acr ipt_comnBnd. "la", comnond ); 
parsecorrroond ( *cr ipt _eommand. ' If ' . Inew^velu* ); 

if ( ( indax = command_ind*x ( comnond, 

sea le_group a ct ipt_con*nand» . S CALE_GROUP_NUM_VALUES ) ) ' 

( 

Interactive » 0; 


lock_cur_ob ject 0 ; 


grid_fis*t -> scal*_f actors [index] ” new_value; 
if ( 1 interactive ) 

ACCESS* { scale_gr oup. eet_valuea, grid_fi**t -> *cal*_facto: 
interactive “ 0; 


unlock_cur_obj*ct () ; 


- END OF set vector scale * 


static void *et_minmax__f unc ( char* script command ) 


OF POOR QUALITY 
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if (is act (script command)) 

* Todd Pleaael 

* NASA Amaa Reaearch Center 

* Sterling Software 






( 

a “ (Actuator*) acr ipt_conmand; 








if (atrcmp (a -> u, CLIP BOT ID) —Dll 

• REVISION HISTORY: 







■trcrapla -> o f CLIP_TOP_ID> — 0 ) 

* 4/89 







minval ■ PNL ACCESS (Typein, minmax acta. clip bot typein. atr); 








maxval ■ PNL ACCESS (Typein. minmox acta. clip top typein. atr); 

* INPUT PARAMETERS: 







load conrand< "MINMAX ts tf tf“. -CLIP”, at o f (mi n va 1 ) , 








ato f (maxva 1) ) ,- 

* char* 

acrlpt command 

actuator / command 




1 








else if (atrcmp (o->u. NORM BOT ID) *“ 0 1 | 

* OUTPUT PARAMETERS: 







at r cmp (o->u , NORMJTOPID) — 0 ) 

* None 







minval » PNL_ACCESS (Typein, minmax acta. norm bot typein. atr); 
maxval m PNL ACCESS (Typein, minmax acta. norm top typein. atr); 

• FUNCTION RETURN: 







load cottmand ( "MINMAX ta tf *f*, "NORM", atof (mi nva 1 ) , 








ato f (maxva 1) ) ; 

* None 







] 








elae if (atrcmp (o -> u. LEGEND MIN ID) — 0 | | 

* GLOBAL VARIABLES USED: 






atrcmp (o -> u. LEGEND_MAX_ID) — 0 ) 

• extern 

Minmax Acta minmax 

acta 

thia file 




minvol “ PNL ACCESS (Type in. minmax acta.legand min typein, atr); 

* extern 

Grid Surface* grid fiaat 

defined in thia 

file 



maxval “ PNL ACCESS (Type in, minmax acta. legend max typein. atr); 








load conxnend ( "MINMAX ta %f tf“, “LEGEND “ , atof (minval) . 

• FILES USED: 







atof (maxval) ) ; 

* None 







elae 

* NOTES: 







return; 

* Requir 

■a that moth .h be Included for atof() 




^ return; 

* NON-STANDARD CODE : 







parte_conmond ( acr ipt_conuond , “la tf tf”, mods, train, tmax) / 

* CALLED BY : 







if ( strcesecmp (mode, “CLIP”) “ 0) 

* FUNCTIONS CALLED : 







1 








clip_Or_norta * CLIP; 

* void 

update minmax alidera(] 


defined in thia 

file 



al * minmax_acta .clip_bot typein; 

* int 

lock cur object () 


defined in thia 

file 



a2 * minmax act*. clip top typein; 

* int 

unlock cur object 0 


defined in thia 

file 



1 

elae if (at rcaaecmp (mode, “NORM") we 0) 

--*/ 







1 








cl i p_or_no rm = NORM; 

al " minmax acta. norm bot typein; 

a2 “ minmax acts. norm top typein; 

1 







atatic void aet minmox 
( 

_fune( char* acr ipt_comma 

nd 





1 

elae if (et rcaaecmp (mode, "LEGEND") — 0) 

char* 

num atr; 

/* 

-> typein string 

*/ 



( 

float 

minmax ( 2 ] ; 

/* 

entered minmax value 

*/ 



legend * 1; 

int 

clip or norm; 

/* 

CLIP or NORM typein 

*/ 




int 

legend “ 0 ; 

/* 

1 if act la legend 

*/ 



a2 - minmax acta. legend max typein; 

Actuator* 

a ; 






) 

Actuat or* 

al; 






elae 

Actuator* 

o2; 






( 

float 

min , max; 






return; 

char* 

minval; 






1 

char* 

maxval ; 







Char 

mode (16); 






/* store the float equivalent in minmax */ 








minmax [0] ** min; 
minmox[l] _ max; 



/* make aura the typain always diaploya a valid float number */ 

If (minmas(O) — 0.0) 

( 

num_atr ■ PNL_ACCESS (Typain, al, atr); 
a print f ( num_atr , FLQAT_STRING_FORMAT, 0.0); 
pnl_fixact (al) ; 

J 

If (mi mna a ( 1 ] — 0.0) 

I 

num_atr - PNLJ1CCESS (Typain. o2. atr); 
aprintf (numatr. FLOAT _ST RINC_FORMAT, 0.0); 
pnl_f ixact (a2) ; 


/• make aura that max > ■ min */ 


if (minmax [1] < minmax (01) 

( 

mitunax(O) a minmax[lj; 

nun atr ■ PNL ACCESS (Typain, al, atr); 

aprintf (numatr, FLOAT_STRING_FORMAT, minmax (0 ]) ; 

num_atr - PNL_ACCESS (Typain, a2, atr); 

aprintf (num_atr, FLQAT_S7RING_FORHAT, minmax (1)); 


/* if the legend minmax waa changed, limit the clip t norm mlnmax */ 
lock_cur_object 0 ; 

if (lagand) 

( 

/* aat the clip ( norm minmax to theae voluaa */ 


t 


grid_fiaat -> 
grid_flaat -> 
grid_fiaat -> 
gr id_£ia at -> 
grid_fiaat -> 
grid_fiaat -> 
grid_fiaat -> 
grid_fiaat -> 


minmax [CLIP) (MAXI) 
minmax (CLIP) (TOP) 
minmax [CLIP] [BOTTOM] 
minmax [CLIP] (MINI) 
minmax [ NORM ] (MAXI ) 
minmax [NORM] (TOP) 
minmax [NORM] (BOTTOM) 
minmax [NORM] (MINI) 


/* update all of theae actuatora */ 


■ minmax (1); 
a minmax ( 1] ; 

• minmax ( 0] ; 

- minmax (0); 
• minmax (1) ; 

* minmax ( 1 ] ; 

■ minmax [ 0) ; 

■ minmax (0) ; 


updata_minmax_a lidara (grid_fiaat -> minmax, 
updata_mlnmax_a lidara <grid_fiaat -> minmax, 
update_minmax_a lidara (grid_fi aat -> minmax. 


LEGEND) ; 
CLIP) ; 
NORM) ; 


/* alaa juat adjuatad a top or bot value ao fix only that group •/ 

alee 

I 

/* make aura valuaa entered are within the lagand minmax */ 
if (mlnmax(O) < grid fiaat -> minmaxjclip or norm) (MINI)) 

I 

minmax [0] = grid fiaat -> minmqx(clip or norm] (MINI); 

I 

if (mlnmax(l) > grid_fiaet -> minmax (cl ip_or_norm) (MAXI) ) 


panels, c 



minmax(l) » grid_fiaat -> minmox[clip_or_norn] (MAXI] ; 

I 

/* raaat the active minmax to thia value */ 

grid_fieet -> minmox [olip_ot_nonu] [BOTTOM] - minmax[0]; 
grid_fiaat -> minmax (clip_or_norm) (TOP ] = minmax(l] ; 

/* update and redrew the alldera */ 

update_minmax_a lidara (grid fleet -> minmax, clip or norm); 


unlock_cur_ob ject () ; 


; Bt i nma x_ f unc — — — — — 


/*++ atatlc void reaet_minmax ( char* acr ipt_comrx»nd ) 

* PURPOSE: 

* Raaeta the clip and norm minmax valuaa to the actual 

* data minmx. 


AUTHORS: 

Todd Pleaael 

NASA Amea Reeearch Center 
Sterling Software 

REVISION HISTORY: 

4/99 

5/91 Added acripting 

INPUT PARAMETERS: 

char* acr ipt_conrnand corrmond/octuotor 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 

CL0BAL VARIABLES USED: 


extern Minmax_Acta minmax_acta; 

extern Crid_Surface* grid_fiaat 


defined in thia file 
defined in thia file 


OF POOR QUALITY 





wkik 

■M 

'• . • pail' 

sls-c , 7'- iftl&lll 

clip and norm! FALSE ) ; 

* NASA Amo a Research Center 

if ( 1 intoractiwo ) £ix_minmax_buttona = 1; 

* Starling Software 

olao if ( at rcoaecmp (mode, "SURFACE") •“ 0) 

* REVISION HISTORY: 

grid fiaat -> minmax mode - SURFACE MINMAX,- 

* 9/91 

clip and norm! FALSE ); 


if ( 1 interactive ) fix_roimnax_buttona = lj 

* INPUT PARAMETERS: 

olao if (atrcaaecnp (mode, "SURFACE_SUBSET") — 0) 

* None 

grid fiaat -> minmax node - SURFACE_SUBSET_MINMAX; 

* OUTPUT PARAMETERS: 

clip and norm) FALSE ) ,- 


if ( 1 interactive ) f ix_minmox_button a = 1; 

* None 

' 

* FUNCTION RETURN: 

if ( fix minmax button! } 


t 

* None 

fix radio buttonaf minmax acta. node button!, 


NUM SCALAR MINMAX MODES, 

* GLOBAL VARIABLES USED: 

grid fiaat -> minmax mode )f 


) 

* extern Grid Surface* grid fiaat,- declared in thia file 


* extern Minmax Acta minmax acta; declared in thia file 

interactive - 0; 

* 


» FILES USED: 

unlock cur object Of 



* None 

* Mu it wait hero until the object hat boon redrawn 

* NOTES: 

* aince redrawing can change the minmax value! . 


*/ 

* NON-STANDARD CODE : 

wait_until_ob ject_ia_rodrown () f 

* CALLED BY : 

/• 

• FUNCTIONS CALLED : 

• After drawing (which updatea the minmax valuea) , 


* update the acelar minmax panel (legend etc.) . 

* int lock_cux_ob ject () defined in thia file 

«/ 

* int unlock_jcur_ob jact 0 defined in thia file 

update_minmox 0 f 

— */ 

1 

/* - - — - clip_and_norm — / 




atatic void clip^ond norm! int atate ) 


int if 


lock_cur_ob ject 0 ; 


if ( atate : ■ FALSE ) /* FALSE ao diaable and hide the ectuetora */ 


/* Reaet ( hide clip teat button (to prevent 1001 clipping) */ 


grid_fiaat -> invert_clipjte»t » FALSEf 


minmax_octa . invar t_clip_t eat button - > vol = 0,0f 

/*++ atatic void clip_end_norffit int atote ) 

minmax_act a .invort_clip_teat button -> aelectoblo “ 0; 

* PURPOSE: 

/* Hide the clipping and normallration actuator! */ 

* Enablea or diaablea uae of clipping and normallration alidera. 

rainn»x_act a .clip label -> aelectoblo m 0; 

* 

minmax_ect a .norm label -> aalectable ■ Of 

» AUTHORS: 

minmax_oct a .clip top typein -> aoloctabla - 0; 

* 

minmax_octa .norm_top_typein -> aalectable «* 0; 

* Todd Ploaaol 

minmax_act a . legend_mox_t ype in -> aalectable “ 0; 




minmox_acta.clip_multialider -> 
mirunax_oct s . norm_rault 1 alider -> 
rainmox_ncta ,clip_bot_typein -> 
minmox_octa,norm_bot_typein - > 
minmox_acta.legand_mln_typein -> 
minmox_acta.reaat_elip_button -> 
minjwx_acta . reaat_norm_button -> 
minma*_ecta . reaet_legend_bLitt on -> 


•oloct able 
aoloctabla 
aoloctabla 
aoloctabla 
aoloctabla 
aoloctabla 
aalocteblo 
aoloctabla 


for ( 1 - 0; 1 < NUM_P ALETTE TYPES; ++1 ) 

( 

if ( minmox_ecta .palottoa (NORM) (1 ) ) 

minmox_acta .palottoa [NORM] f 1 1 — > aoloctabla 
minmax_act ■ .palottoa [CLIP] [ i] -> aoloctabla 

I 

I 

olao /* TRUE ao anablo and ahow the actuator! */ 

( 

/» Show clip toat button */ 

mimrax_acta . invert_clip_teat_button -> aoloctabla 


- 0; 
- 0; 
“ 0; 
- 0; 
- 0; 
- 0; 
* 0; 
- 0 , 


- 0 ; 
- 0; 


/* Shou tho clipping and normalization actuator! */ 


minmox_octa.cHp_labol -> 
mlnmox_acta -norm_labol -> 
minmax_octa .elip_top_typoin -> 
minme*_acta.norra_top_typoin -> 
minmo*_octa. logo nd_max_ty pain -> 
mirunax_octa.clip_mnlti»lidor -> 
minmax'act a. norrajmjlt ialidor -> 
m 1 r.mo K_a ct a . c 1 i p_bot _t ypo i n -> 
minmax_acta . norro_bot_typein -> 
rainma*_octB . logond_roin_typoiti -> 
minmox_act a . roaot c 1 ip_button -> 
minmox_octa . roaot_norm_button -> 
minmax_acta . roaot_logond_butt on -> 


aoloctabla * 1; 
aoloctabla ■ 1; 
aoloctabla “ If 
aoloctabla * If 
aoloctabla * If 
aoloctabla * It 
aoloctabla • It 
aoloctabla • It 
aoloctabla “ 1; 
aoloctabla “ 1; 
aoloctabla - 1; 
aoloctabla ” 1; 
aoloctabla = If 


for < i - Of i < NUMPALETTETYPESf ++i ) 

I 

if ( minmax_acta .palottoa [NORM] ( i } ) 

minmaxjscta .palottoa [NORM] [lJ-> aoloctabla “ 1; 
mlnmax_act a .palottoa (CLIP) ( i] -> aoloctabla ■ 1; 


pnl_fixact ( 
pnl_fi*act ( 
pnl_fixact ( 
pnl_f ixact ( 
pnl^fixact ( 
pnl fixact ( 
pnl fixact ( 
pnl^fl xact < 
pnl_f ixact { 
pnl_£ixact < 
pnl_fixact { 
pnl f i xact [ 
pnl f i xact ( 
pnl f i xact [ 


minmax act a . in vort _cl ip_t oat _button 
minmax acta. clip label ); 
minmax acta. norm label )f 
minmax_acta -cl ip_t op_typoin )f 
mirmax_act a ,norm_t opt ype in ) f 
minmax^acta . legend_max_typein ); 
minmax acta .cl ip_mult ialidor ); 
minmax acta .norm_mult ialidor ) ; 
minmax_octa .clip_bot_typoin ); 
minmax_acta .norm_bot_typo in ); 
minmax_octa .logond_min_typoin ); 
minmax_acta .roaot_clip_button ) f 
minmax_act» ,roaot_norm_button )f 
minmax_acta .roaot_logond_button ); 


for < 1 - Of i < NUM_PALETTE_T YPES f ++i ) 

( 

if ( minmax act a .palottoa (NORM) [ i] ) 


panels. c 

pnl_£ixact( minmax_acta .palottoa [NORM] (i ] >f 
I pnl_fixact( minmax_act a .palottoa (CLIP) [i] ); 


unlock cur_objact () f 

) 

/* END OF cl ip_and_norm 



/*++ atatic int copy_normala ( void ) 

* PURPOSE: 

« 

* Allocate* a new aat of polygon normal! data 

* if needed, and coplo* tho oxiating data into it . 

* AUTHORS: 


Todd Ploaaol 

NASA Amaa Roaoarch Cantor 
Starling Software 

REVISION HISTORY: 

11/89 

INPUT PARAMETERS: 

Nona 

OUTPUT PARAMETERS: 

Nona 

FUNCTION RETURN: 

int 1 if auccoaaful olao 0 

GLOBAL VARIABLES USED: 

extern Gr id_Sur face* grid_flaat; daclorod in thla file 

FILES USED: 




NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 


ORIQmL P£Q£ is 
OF POOR QUALITY 



panels :c 


SAL LOCATE!) mere 

lock_cur_object () 
u n lock_cu r _ob j ect (} 


■tatic int copy r 

4 


i( void ) 

old_id; 

old_data; 

n*w_dota; 

dir; 

typa; 

i; 

dim* ; 


#ifdef DEBUG 

print f( "debug : copying normel*\n"); 
lend if 


lock eur_object () ; 
dim* » ( (grid_fl**t 

for ( dir - 0; dir < 

1 


/* old normal* id 
/» -> old normal* data 
/* now normal* id 
/* -> now normal* data 
/* I/J/K 

/* START /END /MID/ ZONE 
/* index of id 
/» _> ijk dimension* 

/* norm sir* (in byte*) 


> dim*[CRIDJTYPE) [0)) f 
3; ++dir > 


for ( type “ 0; type < 4; 


I 


i - NORM_ID_INDEX( dir. type ); 
sir* “ 3 * airoof (float) ; 


If ( typ* — ZONE ) i 

• la* 

4 

■witch ( dir ) 


- dim* [I] * dim* ( J) * dim*[K); 


l 


ca*e I: *iz« *■= dima(K] 
cue J: air* * = dlma(K) 
case K: air* *<= dlma(J) 
default: brook; 


dim* [ J] ; break; 
dim* (I); break; 
dim*(X); break; 


if ( ( Old_id - grid fi**t -> field_id*li) ) l- -1 ) 

4 

if ( ( o ld_dot a - (float*) ATTACH! old id ) ) «• NULL ) 

4 

Error("Could not attach to existing normal* data!"); 
unlock_cur_obj*et () ; 
return 0; 

4 

if ( ( newid - SALLOCATE( air* ) ) — -1 ) 

I 

Error ("Could not allocate now normal* dotal"); 

DETACH ( old_dato ); 
unlock_cur_ob jest () ; 


I 

if ( 


( now_dato - (float*) ATTACH ( 1 

Error ("Could not attach to now I 
DETACH ( olddata ); 

S DEAL LOCATE ( nowid ); 
unlock_cur_ob ject () ; 
rot urn 0; 


lid > ) =- NOLL ) 
mo 1* data I") ; 


memepy ( 
DETACH ( 
DETACH ( 


iow_data . ol d_data , 
>ld_data ) ; 
iow_data ) ; 


grid_fi**t -> fiold_id*(i) ■ new_id; 


unlock_cui 


■ END OF copy_normola - 


»+ static void doleto_normol* ( void ) 

PURPOSE: 

Deallocate* the polygon normal* data. 

AUTHORS : 

Todd Pleaael 

NASA Amea Research Contor 
Starling Software 

REVISION HISTORY: 

11/89 

INPUT PARAMETERS: 

None 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 


panels.c 


GLOBAL VARIABLES USED: 

FILES USED: 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


grld_fi*at; doclarad in thi* file 

updat e_actuat or *_modo; doclarad in thi* file 


Int 

int 


SDEAL LOCATE! } macro 

lock_cur_objaet () 
un lock_cur _ob j act () 


--»/ 

/« — do l*te_normel * 

atetic void do lot o norma la ( void ) 

4 


int 

int 


dir; 

typo; 


/* I/J/K */ 
/* START/END/MID/ZONE */ 
/* index of id •/ 


If ( update_act uat or a_raode " 1 ) return; 
lifdef DEBUG 

print f ("debug: deleting normalo\n" ) ; 
lendif 

lock_cur — object 4) ; 

/* deallocate existing normal* data and t 

for I dir * 0; dir < 3; ++dir ) 

1 

for ( typ* » 0; typ* < 4; ++typ* ) 

4 

i - NORM_ID_INDEX< dir, type >; 
if ( grid_fiaat -> fieldida(i) ! 


I 


SDEALLOCATE (gr id_f i*lt->f ield id»[i)) ; 
grid_fia it -> fiold_id»(i) - -1; 


unlock cu r_ob ject () / 

/* (new normal* data will bo generated by the drawing i 


T de lot abnormal* 



atatic void chock_dolato_nor(nol* ( int now_dir, int nn rsng** ( 3) (5] ) 
PURPOSE: 

Chock* and than deallocate* tho normal* data if necessary. 

AUTHORS: 

Todd Pleasel 

NASA Amo* Research Contor 
Sterling Soft war a 

REVISION HISTORY: 

6/91 

INPUT PARAMETERS: 

int 
int 

OUTPUT PARAMETERS: 

None 

FUNCTION RETURN: 


GLOBAL VARIABLES USED: 

extern Gr id_Sur face* grid_fiiat; declared in thi* file 

extern int updata_ectuator *_mode ; declared in thi* file 


NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
FUNCTIONS CALLED : 


SDEALLOCATE ( ) macro 

lock_cur_ob ject ( ) 


defined in this file 


inlock_cur_objeet () defined in this file 


do let e_normn la () 


defined in thi* file 


Q RIQH Wl 


PAGE IS 


OF POOR QUALITY 





at otic 


void check_delete_normala ( int new_dir, 

int old_dir ; 

int* old_ranqe; 

int loop_eutface; 

int zone_norino la; 

int changed “ 0; 

int cur; 

int count; 

int i; 

int drawn; 

int dir; 

int typa ; 


int new_rangea { 3} (SI ) 


/* IJK direction */ 
/ * START /E NO/MID/ ZONE * / 
/* START/END/HID */ 
/* uaa tone noma la? */ 
/• delete tham? */ 
/* loop_aurfoce index */ 


/* count aurfacaa drawn */ 
/* index on norma la id */ 
/* boundary auif drawn? */ 
/* IJK direction */ 
/* START /END/M ID/ZONE */ 


I ifdef DEBUG 

print f ("debug : check deleting norma 1 ■ \n" ) ; 
lendif 


lock_cur_object () ; 


zone norma la 
loop aurface 
old_dir 
old_range 


= grid_fiaat -> *one_normala ; 

= gr id_f Is at -> loop_eur face; 

= grid_fiest -> direction; 

= i (grid_f iaat -> rangaa (old_dir J ( 0)) ; 


switch ( grid_fisst -> aur face_mode ) 

I 

caia SINGLESURFACE: 

if < new_dir 1- old_dir ) changed « 1; 
elae if ( I rone_normala ) 

[ 

cur *> loop aurface = KID ? CUR : loop_aur face; 
changed ■ old_range [cur ] new_rangei lold_dir] [cur J ; 

for ( dir * 0; dir < 3; ++dir > 

1 

i - NORM_ID_INDEX< dir. ZONE ); 

if ( grid_fiaat -> fieldidali] 1- -1 ) 

i 

tifdef DEBUG 

printf ( "debug : deleting normala for surface dir - %d. ZONE\n", dir ); 
iendif 

SDE ALLOCATE ( grid_fieet -> fleld_lda{i] ); 
grid_fiaat - > field Ida [i] “ -1; 

I 

) 

I 

break ; 

caae BOUNDARYSURFACES : 

for < dir - 0; dir < 3; +tdir ) 

{ 

count ■ 0; 
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old_range - 4(grid_fiaat -> rangea [dir ) [0)1 ; 

for ( type “ 0; type < 4; ++type ) 

i = NORM_ID_INDEX( dir. type ); 
drawn “1; 

if ( type 1- ZONE ) 

count +“ drawn = grid_fiaat->boundary_f lags (dir ] (type) ; 

cur *■ type ““ MID ? CUR : type; 
changed » ! rone_normal a l( 

old_range [cur ) ! " new rangea [dir] [cur ] ; 

if ( drawn -- 0 | | changed | I 

( cone_normala (1 type •« ZONE (1 count » 0 ) ) 

I 

if ( gridJEiaat -> field idaU) l» -1 ) 

[ 


tifdef DEBUG 

printf ("debug : deleting normala for aurface dir * td, type * ld\n". dir. type); 
tondif 


SDEALL0CA7E ( grid_£iaat -> field_ida[il ); 
grid fleet -> field ida[i] «• -1; 

) 


changed = 0; 


caae SURFACERANGE : changed - old_dir I- newdir; breok; 
default: break; 


if ( changed ) delete_normal a () ; 
unlock_cur_ob ject () ; 


END OF check_d* letenorma ll 


/*++ atatic int copy_contoura ( void ) 

* PURPOSE: 

* Allocate! o new eet of contoura data 

* If needed, and copiea the exiating data into it. 



* AUTHORS: 


* Todd Plea ael 

* NASA Arne a Research Center 

* Sterling Software 

* REVISION HISTORY: 

* 11/89 

* INPUT PARAMETERS: 


* OUTPUT PARAMETERS : 

* None 
« FUNCTION RETURN: 

* int 1 if ancceeaful elae 0 

* GLOBAL VARIABLES USED: 

* extern Grid Surface* grld_fiaat; declared in thia file 

* FILES USED: 


* NOTES: 

* NON-STANDARD CODE : 

* CALLED BY : 

» FUNCTIONS CALLED : 

* SALLOCATEO macro 

« int lock_cur_object () defined in thia file 

* int unlock_curjobject () defined in thia file 



/*■ 


copy_contoura 


atetic int copy contoura) void ) 

I 

int old_id; 

float* old_data; 

int new_id; 

float* new_data; 

int sire; 


/• old contoura id •/ 
/* -> old contoura data »/ 
/* new contour e id */ 
/* -> new contoura data */ 
/* aize (in bytea) */ 


tifdef DEBUG 

printf ("debug: copying contoura\n") ; 
fendlf 


lock_cur_ob ject ( ) ; 

•ire “ grid_fiast -> num_con_pointa * 4 * aizeof (float); 
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if ( ( old id « gr id fiaat -> field_ide (CONTOURSID) ) 1- -1 

l 

if ( < old dato * (float*) ATTACH ( old id ) ) == NULL ) 

I 

Error ("Could not attach to exiating contoura data)"); 
unlock_cur_ob ject I) ; 
return 0; 


if ( ( new id = SAL LOCATE ( alre ) ) - 1 ) 

[ 

Error ("Could not ellocate new contoura datal"}; 
DETACH( old_data ); 
unlock cur object () ; 


if ( ( neudoto • (float*) ATTACH ( new id ) > — NULL ) 

[ 

Error ("Could not attach to new contoura data I*); 
DETACH ( old_data ); 

SDEALLOCATE ( new_id ) ; 
unlock_cur_ob ject () ; 


momepy ( neu_data, old_dota, aize ); 

DETACH ( olddata ) ; 

DETACH ( neu_data ) ; 

gridfiait -> field_ida [CONTOURSID ) » new_ld; 


unlock_cur object!); 


END OF copy_contoura 


/•++ atatic void de leta_contoura ( void ) 
* PURPOSE: 


Deallocate! the contoura dato. 

AUTHORS : 


Todd Pleaael 

NASA Amea Reaearch Center 
Sterling Software 


REVISION HISTORY: 



'/ 



panels .cj:; 


n/89 

INPUT PARAMETERS : 

Bon* 

OUTPUT PARAMETERS: 

Hon* 

FUNCTION RETURN : 

GLOBAL VARIABLES USED: 

«xt*rn Gr id_Sur face * 
• ztarn int 

FILES USED: 

Hon* 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 

FUNCTIONS CALLED : 


grid_f isst ; 
update_actuat 01 


lnt 

int 


SDEALLOCATEO macro 

lock_cur__obj*et () 
unlock_cur_ob ject 


0 


--*/ 

/* — d*l*t*_contouE* — 

•tat lc void d*l*t *_contour ■ ( void ) 

I 

if ( updot*_actuatora_niod* “ 1 ) return; 
fifdaf DEBUG 

print f ( "deb ug: deleting contour i\n ") ; 
l*ndif 

lock_cur_ob ject ( ) ; 

/* deallocate existing contour* data and a*t ids to -1 */ 
if ( grid_fiaat -> fiald Ida [CONTOURS_ID] i- -1 ) 

I 

SDEALLOCATE (grid fi**t->fi*ld ida(CONTOORS ID}); 
gridfisat -> fiXld Ida ( CONTOURS_ID ] » -1;” 

I 

unlockjcur_cb ject 0 ; 

/* (new contours data will b* g*n*rat*d by th* drawing routings) 


- END OF d*l*t*_contoura - 


H- atatic : 
PURPOSE: 


»id fir*t_obj*ct_nani* ( char* nama | 


Todd Plesael 

NASA Am#* Research Canter 
Starling Software 


REVISION HISTORY: 

1/91 

INPUT PARAMETERS: 

Non* 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 

Non* 

GLOBAL VARIABLES USED: 


Nona 


FILES USED: 

Nona 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 
void 

FUNCTIONS CALLED : 


init_panala () 


defined in this file 


/* fir*t_obj*ct_na 

at otic void first obj*ct_name( char* name ) 

I 

atotic char buf [OBJECT_BUF_SIZE] ; 


/* object name listing 


m 

int 
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/* index into buf/nom 


DPRINT(” Inside f ir «t_ob j*ct_name < Is) An", name); 

meraset { buf, 0. sireof buf ); 

DPRI NT ( " buf - ’ Is’ \n", buf) j 

/* get on updotad listing into th* typaout buffer */ 

sprint f (conmand, "LISTOBJECTS %d", GRI D_SURFACE) ; 
tend hub_coniTiand (command) ; 
n»dul*_raad_*ock (buf, sireof (buf) ) ; 

DPRINT(" back from modul*_read_sock ( with buf - ’)i')\b*, buf); 
/* extract th* name of th* first object */ 


while (buffi} I- 

1 

name ( i ) ■ 

++i; 


AO- it buf(l) !- 
bu f [ 1 ] ; 


) OF f irst_ob ject_name - 


: OBJECT NAME LENGTH - 


/•++ static void update_ob jact_typaout ( void ) 

* PURPOSE: 

* Updates the object typaout listing. 

* AUTHORS: 


Fergus J. Merritt 
NASA Am** Research Cent* 
Starling Software 


REVISION HISTORY: 


3/90 

11/90 Todd Plsaaal 

added mutually recursive call and exit_modul* 0 . 


INPUT PARAMETERS: 


OUTPUT PARAMETERS: 

FUNCTION RETURN: 

GLOBAL VARIABLES USED: 
extern Maln_Act s 
FILES USED: 

Non* 

NOTES: 

NON-STANDARD CODE : 
CALLED BY : 


declared in this file 


FUNCTIONS CALLED : 

extern void 
extern int 
extern void 


lnit_penels () 
new_object () 


clear_typeout () 
s*t_*l*ction_num () 
select _ob ject () 


1 ibpenu 
libpenu 

defined in this file 


■ updat*_obj*ct_typ*out ■ 


static void update_object_typaout ( void ) 


buf_si*a; 

buf; 

conmand [32 } ; 


/* points into typaout buf 


cleerjtypeout (raain_acti ,ob j*ct_typ*out ) ; 

buf “ PNL_ACCESS (Typaout, tnain_acts .ob j*ct_typeout, buf); 
buf_iiz# - PNL_ACCESS (Typeout , main_ects .ob j*ct_t ypeout , size. 

/* get an updated listing into th* typeout buffer */ 

sprint f (conmand. -LIST_OBJECTS *d* , GRID_SURFACE) ; 
ssnd_hub_conrnand (conmand) ; 
module_read sock (buf, buf site); 

/* try to reaalect the current object */ 

if (set selection name(maln acts. object typaout. cur object n< 

I 

/* if that failed try to select th* first line */ 

if (set selection num (ma in acts .ob j*ct_typeout , 1) -* 0) 

[ 

/* if that failed then there are no objects left so e: 


ORIGINAL 


PAGE IS 
QUALITY 


OF POOR 





. pariels.c; • 


ieii 


Warning ( 'There ora no objects loft *0 I'm exit log l\n~) ; 
exlt_module() ; 


/* otherwise updote grid aurfoco object with this now aaloction */ 
aoloct_ob joct ( (chor*) raoin_octs . object _typeout ); 


■ END OF update_ob ject_typeout ■ 


> static void updoto actuotoro( void ) 


1 tho content! of the grid_fint 


Todd Plessel 

NASA Aims Research Center 
Sterling Software 

REVISION HISTORY: 

3/90 

INPOT PARAMETERS: 

0 OTP 0T PARAMETERS: 

FUNCTION RETORN: 

None 

GLOBAL VARIABLES OSED: 


extern Gr id_Surfoce* 
extern Main_Acta 
extern Mlnmax_Acts 
extern int 


gr id_f lest declared in this file 

maln_octs this file 

minmax_acts this file 

update_cctuotors_mode; declared in this file 


' FILES USED: 


NON-STANDARD CCH)E : 
CALLED BY : 
FUNCTIONS CALLED : 

extern void 
extern void 
extern int 
extern void 
void 
void 


int 

int 


•et_typein_ival () 
set_typein_fval () 
eet_f ld_data_select ion () 
update_fld_dota_panel () 
up dot tcolor a () 
updats_rairanax_sl iders () 
lack_cur__object {) 
unlock_cur_ob ject (} 


libpanu 
llbpanu 
libfldpon 
libfldpon 
defined in this file 
defined in this file 
defined in this file 
defined in this file 


— — update_actuat or • ■ 

itatic void update actuotora{ void ) 


int 


temp [20] ; 


/* for button updates 


/* set global flag to prevent uneedod deleting of nonnali data */ 
update^actuator s_mode “If 
lock_cur_ob ject 0 ; 

/* fix the Draw the Object button */ 

if ( ((int) moin_acts .draw_ob ject botton->val) != grid fiast->draw ) 

( 

mainjacts .drewob ject_button-> val - (float) grid_fisst->drow,- 
pnl fixoct ( main_acts .drawobject button ); 

1 

/* fix type menu •/ 

ACCESS6 (maln_acts .type_menu_group, set_eelect ion. 0, grid_fiaat -> type. 1. 0); 

/* fix render menu */ 

ACCESS6(main_acts. render menu group. eet_selection. 0, grid fiest -> render mode, 

1. 0> f 

/* fix ottrlbutee menu •/ 

ACCESSS (me in_acts . attribute s_menu_g roup, aet_ielect ion , 0, grid_fiest -> contour 
color_type. 1. 0)/ 

ACCESS6(moin_acts.attributea_menu_group. set_s elect ion, 1, grid_fiest -> vector_e 
olor_type, 1.0); 

ACCESSS (mo injects. att ributes_menu group, set selection, 2, grid_flest -> vector_t 
iptype, 1, 0); 

ACCESSS (main acts . attribute s_a»nu_g roup, set selection. 3. grid fisst -> clip mod 
e. 1. 0) ; 

ACCESS6 (i»in_acts . attribute s_manu_g roup, set_select ion, 4. grid_fisst -> shaded. 


1, ( 


ACCESSS (main_acta .att rlbutas_menu_group, set_s elect ion, 5, grid_fisst -> framed. 


panels.c 


1 . 0 ); 

ACCESS6(main_act s .attributes manu_group, set_se lect ion , 6, grid fisst -> t 
mala, 1. 0) ; 

ACCESS 6 (main^ect ■ .att ributas_menu_group. ■et_sa lect ion , 7, grid_fisst -> i 
rmals, 1 , 0) ; 


/* fix the options menu */ 

ACCESSS (main_act s .opt ions_menu_group. 


:_eeleetion, 0, 0, grid flsst->draw outl 


ACCESSS (main_act s .opt ion s_menu_group, set selection, 1, 0, grid fisit->draw glyp 

/* fix the loop buttons */ 
mem let < temp, 0, sireof temp ); 

temp [gr ld_f is st -> loop_mode] “ 1; 

i • loop_buttons_per_row(0); 

tempi! ♦ grid_fistt -> loop_su rface ] - 1; 

i +« loop_buttons_per_row| 1 J ; 

temp[i ♦ grid_fisst -> loop_rone) ■ 1; 

ACCESS 4 (main_oct s . loop_buttons_group. set_s elect ions. temp. 0); 

/* o 1 so set global */ 

loop_mode » grid^fisst -> loop_mode; 

/* fix the slider buttons */ 

msmaet ( temp, 0, slzeof temp ); 
temp[l] - grld^fisit -> re set_to_rone ; 
temp [2] • grid_fisst -> show_looping; 

ACCESS4 (main_acts.sllder_buttons_group, set _ie lect ions , t emp. 0)/ 

/• fix the surfoce mode buttons */ 

memaet ( temp, 0, sireof temp ); 
temp(grld_fisat -> suzface_mode] ” 1; 

ACCESS4 (main_oet«.tarface_buttons_group. set_se lect ions . temp. 0); 

/• show the select buttons if boundary surfaces mods */ 

if (grid fisst -> surfacemode ■=- BOUNDARY SURFACES) 

[ 

ACCESS2 (ruin act s . alider_group, ihou select buttons); 

) 

else /* hide them */ 

I 

ACCESS2 (main_act». s 1 iderg r ou p , hide_se lect_buttons ) ; 


t 

f* fix the zone typein */ 

ACCESS4 (main_ects . *one_typein_group, 


value , gr ld_f iest -> tone * |GRID_TYPE] [ 


ISS> 




/* fix the sliders */ 


ACCESSS (maln_acts 
ACCESS4 (main acts. 


_ivalues, I, grid_fisst -> range! [I], 0) ; 
lvalues, J, grid_fisst -> ranges [J). 0) ; 

range! [ K] , 0) ; 


ilidargroup, set _ivo lues. K. grld_fisst 
ilidergroup, let _ie lect ion * , grid_fisst 


’ boundary flags. 0); 


ACCESS4 (moin_acts . slider_group, iet_direct ion, grid fisst -> direction, 0); 
if (grid_fia< 


> surface mode I 


B OUN DARYLS URF ACES) 


ACCESS2 <main_oet« . si ider__gr oup , hide_seleet_button* ) ; 

1 “ grid_fisst -> loop surface; 

ACCESS! (main_acts . s lider_group, highlight .lider, i) ; 

/* fix vector and frame scale factors */ 

ACCESS4 (sea le_g roup, set_values, grid_fiiat -> sea le_f actors, 0) ; 


/* update the scalar minnvax panel »/ 

/* fix the Invert clip teet button */ 

if ( ((int) minmox_acts . invert_clip__te st_button-> val ) 1 = 
grid_fiast->invert_clip_test ) 

» 

minmax_act s . invert_clip_test_button->vel “ 

(float) grid_fisst->invert_cl ip_test ; 
pnl_fixact ( minmax_acts . invert clip test_button ); 

) 

/* and the auto minmax update button */ 

if ( ((int) minmax_acts.auto_minmax_update_button->val) I - 
grid fiast->auto minmax update ) 

I 

minmax_acta .auto_minmax_update_button->val ■ 

(float) gr id_f i s st->auto_minmex_update; 
pnl fixoct ( minmaxjDcts .auto minmax updato button ); 

I 

/* and the update minmax sliders button */ 

if ( ((int) mlnmax_ectS.update_minmax_sliders_button->9al) l* 
grid fisst ->updcte_rainmax_i 1 iders ) 

I 

minimx_oct s . update_minmax_s 1 iders button->val •> 

(float) grid_fisst->update_rainmax_sl idars; 
pnl_fixoct ( minmax acts. update minmax slider s_butt on ); 
t 

/* and the minmax mode buttons */ 

£ix_rodio_buttons ( minmax_acts ,mode_button * , NUM_SCALARJ4INMAX_H0DES, 
grid_fisst -> minmax mode ); 

update_minmax_sl iders (grid_fisst -> minmox, CLIP); 
update_minmax_s 1 iders (grid_£isst -> minmax, NORM); 
update_minmax_sl iders (grid_fisst -> minmax, LEGEND); 
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ACC ESS < ( sea la_g roup , set_values, grid_fisi 


adit panel to display the new colors */ 


/* update tha data panel by trying to select this object's zones •/ 

set fid data_selection( GRID. 

grid flsst -> zones [GRIDJIYPE] [REG] . 
gr id~f last -> zones [GRI»_TYPE] [FLO] ) ; 

set fld_data_selection ( SCALAR, 

grid fisst -> zones [SCALARJTYPE ] [ REG] , 
gr id~f isst -> zones [SCALARJTYPE] [FLO] J ; 

set fld_data_select ion ( VECTOR, 

grid fisst -> zones (VECTOR_TYPEJ [REG] . 
gr id~f isst -> zones [VECTORJTYPE][FLD]); 
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/* this will invoke the call-back fund 
update_fld_data_panel () ; 


/* reset global flag to normal */ 


pr int_fie ld_node_in fo ( ) 1 ibf ldpan 

lock_cur_ob ject () defined in this file 

unlock_cur_object {) defined in this file 


/* END OF update_actuators 


fdeflne D IHS_MAT CHI dims 1. dims2> 


(dimsl [I] «« dims2 [I } It 
(dimsl [J] — dims2 [J] tt 
dimsl [K] — dims2[K])) 


static void update_data_info ( void ) 


ind [HUM DIMS}; 
dims [ NUM DIMS]; 
buf; 


/* pass to update data 
/* pass to update data 
t* UK direction 


Updates the data info typeout . 


Todd Plessel 

NASA Ames Research Center 
Sterling Software 


buf - PNi_ACCESS (Typeout, mo in_octs .data_info_typeout, buf); 

ind(I] “ gr id_f last -> ranges (T) [CUR) ; 

ind(J) » gr id_f isst -> ranges [J] [CUR1 ; 

ind[K] * gr id_f last -> ranges [K1 [CUR) ; 

dims (II » grid_fisst -> ranges (I ] [DIM) ; 

dims [J] • grid_fisst -> ranges (J) [DIM] ; 

dims (K) - grid_fisst -> ranges [K] [DIM] ; 
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/• check that the dimensions 


if (DIMS_MATCH (gr id_f is i 


► dims (CRIDTYPE) , grid fiast 


:alar_id ** grid_fisst -> f ield_ids [SCALAR_ID] ; 


if (DIMS_MATCH(grid_fisst -> dims [GRIDJTYPE] , grid_£iest -> dims [VECTORJI 


t enp_vector_id - grid_£isi 


- field_ids (VECTORED]; 


print field^node lnfodnd, dims, 

grid_flsst -> field ids [GRID_ID] , 
grld~fisst -> f ield_ids [IBLAitK^ID] , 
t emp_* ca lar_id , 
temp vector id, 
buf DATA_INFO_BCF_SIZE) J 

pnl^flxact (main_octs ,dota_info_typeout ) j 


) OF update_dato_in£o ■ 


r o id update_dims ( int type, int dims [3] ) 


if (type ]• GRIDJTYPE tt type 


■ SCALARJTYPE tt type 1= VECTORJTYPE) 


itic void update_dims ( int type, int dims [3] ) 


/* update dims */ 


Updates the grid surface structure's dims and possible range. 


Todd Plassel 

NASA Ames Research Cent 

Sterling Software 


grid_fisst -> dims (type ][ I] * dims [I]; 
grid_fisat -> dims [type] [J] ■ dims(J); 
grid_fis*t -> dims [type] [K] ” dima[K]; 

if (grid_fisst->render_mode — CONTOOR_LINES) delete_< 


/* if grid type then reset the IJK ranges to within these dims */ 


if (type " GRIDJTYPE) 


■ END OF update dims ■ 



/*++ static wold update_roinmox_sliders ( float minmax [2 ] (4 ) . int type ) 

* PURPOSE: 

* Updates tho scalar minmax aliders/typein* to 

* tho specified minmox values. 

* 

* AUTHORS: 


Todd Pleasel 

NASA Ami Reseorch Center 
Sterling Software 

REVISION HISTORY: 

6/89 

INPUT PARAMETERS: 

float minmax(2] {4 ] CLIP/NORM, MINI . .TOP minmax values 

int type,- CLIP or NORM 

OUTPUT PARAMETERS: 

FUNCTION RETURN: 


GLOBAL VARIABLES USED: 
extern Minmox^Aeti 
FILES USED: 

None 

NOTES: 

NON-STANDARD CODE : 


CALLED BY : 
FUNCTIONS CALLED : 

extern float 
extern void 
void 
void 


minmax acts; 


Norm () 

set_typeln_fval () 
updato_l*gend() 
update^pa lottos {) 
lock _cur_ob ject 0 


libFgl 
libpanu 
defined in this file 
defined in this file 
defined in thle file 


inlock_cur_object <) defined in this file 


— — u pda te_minmax_s Ildars 

ic void update_minn»x_s Ildars ( float minmax [2 ] (4] , int type ) 


panels :c {- 

i 

Actuator * ms ; 

Actuator* so ; 

Actuator* mina; 

Actuetor * noxa; 



/* -> a mult lslider */ 
/* -> a slider in ms */ 
/* min typein */ 
/* max typein */ 


/* select appropriate nultislider •/ 
if (type «= CLIP) 

I 

■ ndnmax_act a .clip_imlt isl ider ; 

■ minmax_acts.clip_bot_typein/ 

“ minmax_acts.clip_top_typein; 

-- NORM ) 

■ mintrax_ect s .norm_mult is 1 ider / 

“ minmax act ■ .norm bot typein; 

“ minmax_act i .norm_top typein; 

-» LEGEND) 

- minmax_act a . legend min typein; 

- Riinmax_act s . legend max typein; 


if (type 1= LEGEND) 

1 

/* update the top slider */ 
so - ms -> al; 

.printfleo -> label, FLOAT_STRING_FORMAT . minma x (type) [TOP ] ) ; 
so -> extval « Norm! minmax (type ) [TOP ] , 

minmax [type] (MINI) , minmax [t ype ) [MAXI ) ); 

/* update the bottom slider */ 
so - so -> next; 

spr intf (la -> label, FLOAT_STRING_FORMAT. minmax [type ) [BOTTOM ]) ; 
sa -> extval “ Nocm( minmax [type] [BOTTOM] , 

minmax (type) [MINI] . minmax [t ype ] [MAXI] ); 

/* redraw the appropriate multielider */ 

pnl_fixact (ms) ; 

/* update the top ond bottom typelne */ 

aet_typein_£val(raaxo, minmax(type J [TOP] , FLOATSTRINGFORMAT) ; 
set_typein_fval (mina , mi nmax [type] [BOTTOM] . FLOAT_STRING__FORMAT) ; 

/* update the palettee */ 

update pelettee (type) ; 

) 

else /* legend */ 

I 

/* update the min ond max typeine */ 


else if (type 

[ 

i 

else if (type 

[ 




#et_typein_fvol (moxn. minmax [ 0} [MAXI ] , FLOAT_STRINC_FORMAT) ; 
set_typ«in_fval (mine, minmax [ 0 J [MINI ] , FLOAT~STRING_FORMAT) ; 

/* redraw legend numbers */ 

update_legend(tninmax(0) (MINI) , minmax[0] [MAXI] , 

minmax_act > . legend_lobe 1 ■) ; 


/* now take core of the contour stuff */ 
lock_cur_ob ject () ; 

gr id_£is st -> contours join - minmax [0] [MINI); 
grid_fie»t -> eontours_max " minmax [0] [MAXI] ; 
grid_fisst -> contours_inc “ 

(minmax [0] [MAXI] - mi nmax (0) [MINI] ) / 

( float >grid_fi sat -> num_contours; 

/* update the mln/max typein */ 


mine - contour_act ■ .contour_min_typein i 
maxa ” contour_octs .contour_max_typein; 

set t ypein_fvol (maxa. minmax [ 0] [MAXI] , FLOAT_STRING_FORMAT) ; 
eet_typein_fvol (mine, minmax[ 0) [MINI] , FLOATJSTRINCFORMAT) ; 

/* redraw contour legend numbers */ 

update_legend (minmax [0 ] [MINI] , minmax[0] [MAXI] . 

contouracts .contour_labels) ; 

set typein_ival (contour_acts . con tour _num_t ypei n, 

grid_f isst -> num_contours , INT_STRING_FORMAT) ; 

set typein fval (contour acts. contour inc_typeln, 

grid_flsst -> contour s_lnc, FLOAT_STRING_FORMAT) ; 

unlockjcur_object ( ) i 


END OF update_minmax_sliders 


/»++ static void update legend( float min_vol, float max_vol. Actuator** act ) 


» AUTHORS: 


Updates the legend to the specified minmax values. 


pariels.cil 

* Todd Plessel 

* NASA Ames Research Center 

* Sterling Software 

* REVISION HISTORY: 

* 9/89 

* INPUT PARAMETERS: 

* float min_vel 

* float max_vol 

* Actuator* ’act 

* OUTPUT PARAMETERS: 


mmm 



minuroum legend value 
maximum legend value 


FUNCTION RETURN: 

GLOBAL VARIABLES USED: 

extern Minmax_Acts minmax_acts this file 

FILES USED: 


* NON-STANDARD CODE : 

* CALLED BY : 

* void update_minnux_slidare() defined in thie file 

* FUNCTIONS CALLED : 

* int lock_cur_ob ject () defined in thie file 

* int unlock_cur_object () defined in thie file 

--*/ 


/. 

static t 


— updat e_leg«nd — * / 

ild updat allege nd ( float min_vol, float max_vol. Actuator** act ) 


float 

float 

/* calc incremei 
val inc - (max ' 
/* set initial < 


/* loop on labela */ 
/* value of label */ 
/* increment va lue */ 
/• points at label acts */ 


- min_val) / (float) ( N UM_LEGE ND VAL UES - 1) ; 


/* fix each label (from the botton up) with incremental value */ 




for (i - 0; i < NUMLECEND_VALUE5 ; -t-fl) 

{ 

to - act (i); 

sprint f (ta -> label. F LQAT_ST RI K C_F ORMAT . val) ; 
pnl_£ixaet (ta) ; 
val +» val inc; 

I 


END OF updat e_leg*nd 


/*++ static void updat e_pa latte a ( int clip_or_norm ) 

* PURPOSE: 

* Update* th« palettes to reflect the new setting! of 

* the ipeclfled slider. 

* AUTHORS: 

* Todd Pie seel 

* NASA Ante* Research Center 

» Sterling Software 

* REVISION HISTORY: 

* 9/89 

* INPUT PARAMETERS: 

* int clip_or_norm CLIP or NORM multialider 

* OUTPUT PARAMETERS: 

* None 

* FUNCTION RETURN: 

* GLOBAL VARIABLES USED: 

* extern Minim*_Act» minnmx_ecta; this file 

* FILES USED: 

* None 

* NOTES: 

* NON-STANDARD CODE : 


panelsc 

| • CALLED BY : 


void update_minmax_»lider» 0 
void ad juat_minmax_func () 

FUNCTIONS CALLED : 

extern void draw_polettea O 

int lock_cur_ob ject O 

int onlock_cur_object O 


/' 


updote_pa let tea 



defined in this file 
defined in this file 


libpanu 

defined in this file 
defined in this file 


jatatic void updatepalettea { int clip_or_norra ) 

Actuator* ms; /* clip or norm multlalidar •> 

float norm_bot_val; /* norm bottom elldar val */ 

f loot norw_top_valj /* norm top alidar val */ 

float elip_bot_val; /• clip bottom alidar val */ 

float elip_top_valj /* clip top alidar val */ 

float val; /* tmp normalized value */ 

float VelalNUM_PALETTE_TYPES] 12] ; /* bot/top pal val* */ 

float origin [2 ) ; /* x/y coord of bot left */ 

float colors [NUM_PALETTE_TYPES][2 ] ; /* bot/top color vala *, 


/* get atato of norm multialider */ 

ma • r.inmox_oct a .norm_inult is lider ; 
norm_top_val « ma -> el -> extvel; 
norm_bot_val * ms -> ol -> next -> extval; 

originfY] m ma -> y; 

if (clip_or_norm -- NORM) 

I 

/* fix norm palette */ 

origin[X] - ma -> x - PALETTE_HIDTH t 

vala [MED] [MAXIMUM] * norm_top_val ; 
vola [MED] [MINIMUM] - normbotval ; 

colors [MED] [MAXIMUM] - MAX MAP; 
colors [MED ) [MINIMUM) » MINMAPf 


draw_po lottos < NUM_PALETTE_TYPES, 

minmax_acta .pa lottos [NORM] , 

vala . 

colors, 

PALETTE_HEIGHT. 


/* fix legend palettes */ 



origin [X] +» PALET TE_X_I N C ; 

voli [HI] [MAXIMUM] =1.0; 

vala [HI] (MINIMUM] = norm_top_val ; 

vala [LON] (MAXIMUM] - norm_bot_vo 1; 
vala [LON] (MINIMUM) •> 0.0;“ 

color* [HI] (MAXIMUM) - MAX MAP; 
coloralHI] (MINIMUM) « MAX~MAP; 

color a (LON] (MAXIMUM) - MIN MAP; 
color * (LON] [MINIMUM] - MIN MAP; 


drawpalettea ( NUM_PALETT E_T YPE S , 

mi mrax_act a .palettes [LEGEND] , 
vala, 

PALETTE_H EIGHT, 
origin) ; 

I 

else 

color a (HI) [MAXIMUM] - MAX MAP; 
colora(HI) (MINIMUM] - KAXMAP; 
colors [LON] [MAXIMUM] = MIN_MAP; 
colors [LOH] (MINIMUM] - MINJ MAP; 

\ 


/* fix clip palettas */ 

/* get state of clip multi slider »/ 

ms = minmax_acts .clip_mult iallder ; 
clip_top_vel “ mi -> al -> extval; 
clip_bot_val - mi -> al -> next -> extval; 

origin (X) - ma -> x - PALETTEJCDTH; 

/* calc positions end MED colors */ 
if (clip_top_vel >■ norm_top_val) 

vali [HI ) [MAXIMUM] • elip_top_val ; 

vali(KI) [MINIMUM] - MAX(clip“bot_vol, norm_top_ve 1) ; 
colors [MED] [MAXIMUM] * MAX MAP; 

J 

else 

( 

valslHI] [MAXIMUM] - clip_top_val; 
vala [HI] [MINIMUM) - cl ip“t*pl tf <»l » 

val ■ Norm(clip_top_val, norm_bot_val, norm_top_val) ; 
colors (MED) (MAXIMUM] - gat funct lon_indax( val) ; 

I 

if (clip_bot_val O norm_bot val) 

l 


h : .. . : 

vala (LOW) [MAXIMUM) - MIN (clip top_vol. no rm_bot _va 1 ) ; 
vala [LOH] [MINIMUM) - clipbotval? 

colors [MED) (MINIMUM] -MINMAP; 


also 

1 

vala (LOH] (MAXIMUM) - clip bot_val; 
vala (LOH) (MINIMUM) - clipJ»ot"val; 

val - Norm (cl ip_bot_val , norm_bot_val , norm top_vol) ; 
colors (MED) (MINIMUM] - gat funct ion_inde* (va 1) ; " 


/* MED palette is always between LOH and HI palettes */ 

vala (MED) (MAXIMUM] - val* (HI J [MINIMUM] ; 
vala [MED] (MINIMUM] - vo Is [LOW] [MAXIMUM ] ; 



pmmmi 

> »s. & : 

>.$• ;i;- v 

Mm8m 


draw_palettes( NUM_PALETTE_TYPES. 

minmox_octs . palettes (CLIP) . 

val*. 

colors, 

PALETTE_HEICHT. 
origin) ; 

pnl_fixact (minmnx_acts.minmox_frome) ; 


/*• 


END OF update_pa let tea 


END OF FILE panels. c 


ORIGINAL PAGE IS 

AC SAAD /M i a a iv%* 



